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 /embed.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 'embed.h')
| -rw-r--r-- | embed.h | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -793,6 +793,9 @@ #define warn_nocontext Perl_warn_nocontext #define warner_nocontext Perl_warner_nocontext #endif +#if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_PERL_C) +#define _new_invlist_C_array(a) Perl__new_invlist_C_array(aTHX_ a) +#endif #if defined(PERL_MAD) #define newFORM(a,b,c) Perl_newFORM(aTHX_ a,b,c) #endif @@ -897,7 +900,6 @@ # if defined(PERL_IN_REGCOMP_C) #define _append_range_to_invlist(a,b,c) S__append_range_to_invlist(aTHX_ a,b,c) #define _invlist_array_init(a,b) S__invlist_array_init(aTHX_ a,b) -#define _new_invlist_C_array(a) S__new_invlist_C_array(aTHX_ a) #define add_cp_to_invlist(a,b) S_add_cp_to_invlist(aTHX_ a,b) #define add_data S_add_data #define alloc_maybe_populate_EXACT(a,b,c,d,e) S_alloc_maybe_populate_EXACT(aTHX_ a,b,c,d,e) |