diff options
| author | Karl Williamson <public@khwilliamson.com> | 2014-01-06 12:14:31 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2014-01-09 14:05:44 -0700 |
| commit | 7b8dd5f447fb612eaa2eb9b569548fa3d6a2a352 (patch) | |
| tree | 6ef3022fc19e8508e6869df41aceede6c8cca747 /proto.h | |
| parent | 9651895db7c885f5e994e0ddde984df6e4e1ddc2 (diff) | |
| download | perl-7b8dd5f447fb612eaa2eb9b569548fa3d6a2a352.tar.gz | |
Move initialization of PL_XPosix_ptrs[] to perl.c
This was performed unconditionally in regcomp.c. However, future
commits will use this from other code. Almost all (but not completely
all) Perl code uses regular expressions, so only rarely will this small
amount of initialization be performed when it currently isn't.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 14 |
1 files changed, 8 insertions, 6 deletions
@@ -6570,12 +6570,6 @@ PERL_STATIC_INLINE UV* S__invlist_array_init(pTHX_ SV* const invlist, const bool #define PERL_ARGS_ASSERT__INVLIST_ARRAY_INIT \ assert(invlist) -STATIC SV* S__new_invlist_C_array(pTHX_ const UV* const list) - __attribute__warn_unused_result__ - __attribute__nonnull__(pTHX_1); -#define PERL_ARGS_ASSERT__NEW_INVLIST_C_ARRAY \ - assert(list) - PERL_STATIC_INLINE SV* S_add_cp_to_invlist(pTHX_ SV* invlist, const UV cp) __attribute__warn_unused_result__; @@ -6956,6 +6950,14 @@ PERL_CALLCONV void Perl__invlist_dump(pTHX_ PerlIO *file, I32 level, const char* assert(file); assert(indent); assert(invlist) #endif +#if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_PERL_C) +PERL_CALLCONV SV* Perl__new_invlist_C_array(pTHX_ const UV* const list) + __attribute__warn_unused_result__ + __attribute__nonnull__(pTHX_1); +#define PERL_ARGS_ASSERT__NEW_INVLIST_C_ARRAY \ + assert(list) + +#endif #if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C) || defined(PERL_IN_UTF8_C) PERL_CALLCONV SV* Perl__get_swash_invlist(pTHX_ SV* const swash) __attribute__warn_unused_result__ |