Skip to content

Commit 4fcf1e9

Browse files
khwilliamsonkhwilliamson
committed
Move inversion lists to interpreter level
Otherwise causes problems for embedded perls.
1 parent 0dcb422 commit 4fcf1e9

File tree

7 files changed

+182
-166
lines changed

7 files changed

+182
-166
lines changed

‎embedvar.h

Lines changed: 32 additions & 64 deletions
Original file line numberDiff line numberDiff line change
@@ -40,6 +40,9 @@
4040
# define vTHX PERL_GET_INTERP
4141
# endif
4242

43+
#define PL_AboveLatin1 (vTHX->IAboveLatin1)
44+
#define PL_Assigned_invlist (vTHX->IAssigned_invlist)
45+
#define PL_CCC_non0_non230 (vTHX->ICCC_non0_non230)
4346
#define PL_DBcontrol (vTHX->IDBcontrol)
4447
#define PL_DBcv (vTHX->IDBcv)
4548
#define PL_DBgv (vTHX->IDBgv)
@@ -50,14 +53,28 @@
5053
#define PL_DBtrace (vTHX->IDBtrace)
5154
#define PL_Dir (vTHX->IDir)
5255
#define PL_Env (vTHX->IEnv)
56+
#define PL_GCB_invlist (vTHX->IGCB_invlist)
57+
#define PL_HasMultiCharFold (vTHX->IHasMultiCharFold)
58+
#define PL_InBitmap (vTHX->IInBitmap)
59+
#define PL_InMultiCharFold (vTHX->IInMultiCharFold)
60+
#define PL_LB_invlist (vTHX->ILB_invlist)
5361
#define PL_LIO (vTHX->ILIO)
62+
#define PL_Latin1 (vTHX->ILatin1)
5463
#define PL_Mem (vTHX->IMem)
5564
#define PL_MemParse (vTHX->IMemParse)
5665
#define PL_MemShared (vTHX->IMemShared)
66+
#define PL_NonFinalFold (vTHX->INonFinalFold)
67+
#define PL_Posix_ptrs (vTHX->IPosix_ptrs)
68+
#define PL_Private_Use (vTHX->IPrivate_Use)
5769
#define PL_Proc (vTHX->IProc)
70+
#define PL_SB_invlist (vTHX->ISB_invlist)
71+
#define PL_SCX_invlist (vTHX->ISCX_invlist)
5872
#define PL_Sock (vTHX->ISock)
5973
#define PL_StdIO (vTHX->IStdIO)
6074
#define PL_Sv (vTHX->ISv)
75+
#define PL_UpperLatin1 (vTHX->IUpperLatin1)
76+
#define PL_WB_invlist (vTHX->IWB_invlist)
77+
#define PL_XPosix_ptrs (vTHX->IXPosix_ptrs)
6178
#define PL_Xpv (vTHX->IXpv)
6279
#define PL_an (vTHX->Ian)
6380
#define PL_argvgv (vTHX->Iargvgv)
@@ -155,6 +172,7 @@
155172
#define PL_in_clean_objs (vTHX->Iin_clean_objs)
156173
#define PL_in_eval (vTHX->Iin_eval)
157174
#define PL_in_load_module (vTHX->Iin_load_module)
175+
#define PL_in_some_fold (vTHX->Iin_some_fold)
158176
#define PL_in_utf8_COLLATE_locale (vTHX->Iin_utf8_COLLATE_locale)
159177
#define PL_in_utf8_CTYPE_locale (vTHX->Iin_utf8_CTYPE_locale)
160178
#define PL_in_utf8_turkic_locale (vTHX->Iin_utf8_turkic_locale)
@@ -335,6 +353,20 @@
335353
#define PL_unitcheckav_save (vTHX->Iunitcheckav_save)
336354
#define PL_unlockhook (vTHX->Iunlockhook)
337355
#define PL_unsafe (vTHX->Iunsafe)
356+
#define PL_utf8_charname_begin (vTHX->Iutf8_charname_begin)
357+
#define PL_utf8_charname_continue (vTHX->Iutf8_charname_continue)
358+
#define PL_utf8_idcont (vTHX->Iutf8_idcont)
359+
#define PL_utf8_idstart (vTHX->Iutf8_idstart)
360+
#define PL_utf8_mark (vTHX->Iutf8_mark)
361+
#define PL_utf8_perl_idcont (vTHX->Iutf8_perl_idcont)
362+
#define PL_utf8_perl_idstart (vTHX->Iutf8_perl_idstart)
363+
#define PL_utf8_tofold (vTHX->Iutf8_tofold)
364+
#define PL_utf8_tolower (vTHX->Iutf8_tolower)
365+
#define PL_utf8_tosimplefold (vTHX->Iutf8_tosimplefold)
366+
#define PL_utf8_totitle (vTHX->Iutf8_totitle)
367+
#define PL_utf8_toupper (vTHX->Iutf8_toupper)
368+
#define PL_utf8_xidcont (vTHX->Iutf8_xidcont)
369+
#define PL_utf8_xidstart (vTHX->Iutf8_xidstart)
338370
#define PL_utf8cache (vTHX->Iutf8cache)
339371
#define PL_utf8locale (vTHX->Iutf8locale)
340372
#define PL_warn_locale (vTHX->Iwarn_locale)
@@ -347,42 +379,8 @@
347379

348380
#if defined(PERL_GLOBAL_STRUCT)
349381

350-
#define PL_AboveLatin1 (my_vars->GAboveLatin1)
351-
#define PL_GAboveLatin1 (my_vars->GAboveLatin1)
352-
#define PL_Assigned_invlist (my_vars->GAssigned_invlist)
353-
#define PL_GAssigned_invlist (my_vars->GAssigned_invlist)
354-
#define PL_CCC_non0_non230 (my_vars->GCCC_non0_non230)
355-
#define PL_GCCC_non0_non230 (my_vars->GCCC_non0_non230)
356382
#define PL_C_locale_obj (my_vars->GC_locale_obj)
357383
#define PL_GC_locale_obj (my_vars->GC_locale_obj)
358-
#define PL_GCB_invlist (my_vars->GGCB_invlist)
359-
#define PL_GGCB_invlist (my_vars->GGCB_invlist)
360-
#define PL_HasMultiCharFold (my_vars->GHasMultiCharFold)
361-
#define PL_GHasMultiCharFold (my_vars->GHasMultiCharFold)
362-
#define PL_InBitmap (my_vars->GInBitmap)
363-
#define PL_GInBitmap (my_vars->GInBitmap)
364-
#define PL_InMultiCharFold (my_vars->GInMultiCharFold)
365-
#define PL_GInMultiCharFold (my_vars->GInMultiCharFold)
366-
#define PL_LB_invlist (my_vars->GLB_invlist)
367-
#define PL_GLB_invlist (my_vars->GLB_invlist)
368-
#define PL_Latin1 (my_vars->GLatin1)
369-
#define PL_GLatin1 (my_vars->GLatin1)
370-
#define PL_NonFinalFold (my_vars->GNonFinalFold)
371-
#define PL_GNonFinalFold (my_vars->GNonFinalFold)
372-
#define PL_Posix_ptrs (my_vars->GPosix_ptrs)
373-
#define PL_GPosix_ptrs (my_vars->GPosix_ptrs)
374-
#define PL_Private_Use (my_vars->GPrivate_Use)
375-
#define PL_GPrivate_Use (my_vars->GPrivate_Use)
376-
#define PL_SB_invlist (my_vars->GSB_invlist)
377-
#define PL_GSB_invlist (my_vars->GSB_invlist)
378-
#define PL_SCX_invlist (my_vars->GSCX_invlist)
379-
#define PL_GSCX_invlist (my_vars->GSCX_invlist)
380-
#define PL_UpperLatin1 (my_vars->GUpperLatin1)
381-
#define PL_GUpperLatin1 (my_vars->GUpperLatin1)
382-
#define PL_WB_invlist (my_vars->GWB_invlist)
383-
#define PL_GWB_invlist (my_vars->GWB_invlist)
384-
#define PL_XPosix_ptrs (my_vars->GXPosix_ptrs)
385-
#define PL_GXPosix_ptrs (my_vars->GXPosix_ptrs)
386384
#define PL_appctx (my_vars->Gappctx)
387385
#define PL_Gappctx (my_vars->Gappctx)
388386
#define PL_check (my_vars->Gcheck)
@@ -409,8 +407,6 @@
409407
#define PL_Ghash_state (my_vars->Ghash_state)
410408
#define PL_hints_mutex (my_vars->Ghints_mutex)
411409
#define PL_Ghints_mutex (my_vars->Ghints_mutex)
412-
#define PL_in_some_fold (my_vars->Gin_some_fold)
413-
#define PL_Gin_some_fold (my_vars->Gin_some_fold)
414410
#define PL_keyword_plugin (my_vars->Gkeyword_plugin)
415411
#define PL_Gkeyword_plugin (my_vars->Gkeyword_plugin)
416412
#define PL_keyword_plugin_mutex (my_vars->Gkeyword_plugin_mutex)
@@ -497,36 +493,8 @@
497493
#define PL_Guser_def_props_aTHX (my_vars->Guser_def_props_aTHX)
498494
#define PL_user_prop_mutex (my_vars->Guser_prop_mutex)
499495
#define PL_Guser_prop_mutex (my_vars->Guser_prop_mutex)
500-
#define PL_utf8_charname_begin (my_vars->Gutf8_charname_begin)
501-
#define PL_Gutf8_charname_begin (my_vars->Gutf8_charname_begin)
502-
#define PL_utf8_charname_continue (my_vars->Gutf8_charname_continue)
503-
#define PL_Gutf8_charname_continue (my_vars->Gutf8_charname_continue)
504496
#define PL_utf8_foldclosures (my_vars->Gutf8_foldclosures)
505497
#define PL_Gutf8_foldclosures (my_vars->Gutf8_foldclosures)
506-
#define PL_utf8_idcont (my_vars->Gutf8_idcont)
507-
#define PL_Gutf8_idcont (my_vars->Gutf8_idcont)
508-
#define PL_utf8_idstart (my_vars->Gutf8_idstart)
509-
#define PL_Gutf8_idstart (my_vars->Gutf8_idstart)
510-
#define PL_utf8_mark (my_vars->Gutf8_mark)
511-
#define PL_Gutf8_mark (my_vars->Gutf8_mark)
512-
#define PL_utf8_perl_idcont (my_vars->Gutf8_perl_idcont)
513-
#define PL_Gutf8_perl_idcont (my_vars->Gutf8_perl_idcont)
514-
#define PL_utf8_perl_idstart (my_vars->Gutf8_perl_idstart)
515-
#define PL_Gutf8_perl_idstart (my_vars->Gutf8_perl_idstart)
516-
#define PL_utf8_tofold (my_vars->Gutf8_tofold)
517-
#define PL_Gutf8_tofold (my_vars->Gutf8_tofold)
518-
#define PL_utf8_tolower (my_vars->Gutf8_tolower)
519-
#define PL_Gutf8_tolower (my_vars->Gutf8_tolower)
520-
#define PL_utf8_tosimplefold (my_vars->Gutf8_tosimplefold)
521-
#define PL_Gutf8_tosimplefold (my_vars->Gutf8_tosimplefold)
522-
#define PL_utf8_totitle (my_vars->Gutf8_totitle)
523-
#define PL_Gutf8_totitle (my_vars->Gutf8_totitle)
524-
#define PL_utf8_toupper (my_vars->Gutf8_toupper)
525-
#define PL_Gutf8_toupper (my_vars->Gutf8_toupper)
526-
#define PL_utf8_xidcont (my_vars->Gutf8_xidcont)
527-
#define PL_Gutf8_xidcont (my_vars->Gutf8_xidcont)
528-
#define PL_utf8_xidstart (my_vars->Gutf8_xidstart)
529-
#define PL_Gutf8_xidstart (my_vars->Gutf8_xidstart)
530498
#define PL_veto_cleanup (my_vars->Gveto_cleanup)
531499
#define PL_Gveto_cleanup (my_vars->Gveto_cleanup)
532500
#define PL_watch_pvx (my_vars->Gwatch_pvx)

‎intrpvar.h

Lines changed: 36 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -815,6 +815,42 @@ PERLVARI(I, dump_re_max_len, STRLEN, 60)
815815

816816
PERLVAR(I, internal_random_state, PL_RANDOM_STATE_TYPE)
817817

818+
PERLVARI(I, AboveLatin1, SV *, NULL)
819+
PERLVARI(I, Assigned_invlist, SV *, NULL)
820+
PERLVARI(I, GCB_invlist, SV *, NULL)
821+
PERLVARI(I, HasMultiCharFold, SV *, NULL)
822+
PERLVARI(I, InMultiCharFold, SV *, NULL)
823+
PERLVARI(I, Latin1, SV *, NULL)
824+
PERLVARI(I, LB_invlist, SV *, NULL)
825+
PERLVARI(I, NonFinalFold, SV *, NULL)
826+
PERLVARI(I, SB_invlist, SV *, NULL)
827+
PERLVARI(I, SCX_invlist, SV *, NULL)
828+
PERLVARI(I, UpperLatin1, SV *, NULL) /* Code points 128 - 255 */
829+
830+
/* List of characters that participate in any fold defined by Unicode */
831+
PERLVARI(I, in_some_fold, SV *, NULL)
832+
833+
PERLVARI(I, utf8_idcont, SV *, NULL)
834+
PERLVARI(I, utf8_idstart, SV *, NULL)
835+
PERLVARI(I, utf8_perl_idcont, SV *, NULL)
836+
PERLVARI(I, utf8_perl_idstart, SV *, NULL)
837+
PERLVARI(I, utf8_xidcont, SV *, NULL)
838+
PERLVARI(I, utf8_xidstart, SV *, NULL)
839+
PERLVARI(I, WB_invlist, SV *, NULL)
840+
PERLVARA(I, XPosix_ptrs, POSIX_CC_COUNT, SV *)
841+
PERLVARA(I, Posix_ptrs, POSIX_CC_COUNT, SV *)
842+
PERLVARI(I, utf8_toupper, SV *, NULL)
843+
PERLVARI(I, utf8_totitle, SV *, NULL)
844+
PERLVARI(I, utf8_tolower, SV *, NULL)
845+
PERLVARI(I, utf8_tofold, SV *, NULL)
846+
PERLVARI(I, utf8_tosimplefold, SV *, NULL)
847+
PERLVARI(I, utf8_charname_begin, SV *, NULL)
848+
PERLVARI(I, utf8_charname_continue, SV *, NULL)
849+
PERLVARI(I, utf8_mark, SV *, NULL)
850+
PERLVARI(I, InBitmap, SV *, NULL)
851+
PERLVARI(I, CCC_non0_non230, SV *, NULL)
852+
PERLVARI(I, Private_Use, SV *, NULL)
853+
818854
/* If you are adding a U8 or U16, check to see if there are 'Space' comments
819855
* above on where there are gaps which currently will be structure padding. */
820856

‎perl.c

Lines changed: 71 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1196,6 +1196,77 @@ perl_destruct(pTHXx)
11961196
PL_warn_locale = NULL;
11971197
#endif
11981198

1199+
SvREFCNT_dec(PL_AboveLatin1);
1200+
PL_AboveLatin1 = NULL;
1201+
SvREFCNT_dec(PL_Assigned_invlist);
1202+
PL_Assigned_invlist = NULL;
1203+
SvREFCNT_dec(PL_GCB_invlist);
1204+
PL_GCB_invlist = NULL;
1205+
SvREFCNT_dec(PL_HasMultiCharFold);
1206+
PL_HasMultiCharFold = NULL;
1207+
SvREFCNT_dec(PL_InMultiCharFold);
1208+
PL_InMultiCharFold = NULL;
1209+
SvREFCNT_dec(PL_Latin1);
1210+
PL_Latin1 = NULL;
1211+
SvREFCNT_dec(PL_LB_invlist);
1212+
PL_LB_invlist = NULL;
1213+
SvREFCNT_dec(PL_NonFinalFold);
1214+
PL_NonFinalFold = NULL;
1215+
SvREFCNT_dec(PL_SB_invlist);
1216+
PL_SB_invlist = NULL;
1217+
SvREFCNT_dec(PL_SCX_invlist);
1218+
PL_SCX_invlist = NULL;
1219+
SvREFCNT_dec(PL_UpperLatin1);
1220+
PL_UpperLatin1 = NULL;
1221+
SvREFCNT_dec(PL_in_some_fold);
1222+
PL_in_some_fold = NULL;
1223+
SvREFCNT_dec(PL_utf8_idcont);
1224+
PL_utf8_idcont = NULL;
1225+
SvREFCNT_dec(PL_utf8_idstart);
1226+
PL_utf8_idstart = NULL;
1227+
SvREFCNT_dec(PL_utf8_perl_idcont);
1228+
PL_utf8_perl_idcont = NULL;
1229+
SvREFCNT_dec(PL_utf8_perl_idstart);
1230+
PL_utf8_perl_idstart = NULL;
1231+
SvREFCNT_dec(PL_utf8_xidcont);
1232+
PL_utf8_xidcont = NULL;
1233+
SvREFCNT_dec(PL_utf8_xidstart);
1234+
PL_utf8_xidstart = NULL;
1235+
SvREFCNT_dec(PL_WB_invlist);
1236+
PL_WB_invlist = NULL;
1237+
SvREFCNT_dec(PL_utf8_toupper);
1238+
PL_utf8_toupper = NULL;
1239+
SvREFCNT_dec(PL_utf8_totitle);
1240+
PL_utf8_totitle = NULL;
1241+
SvREFCNT_dec(PL_utf8_tolower);
1242+
PL_utf8_tolower = NULL;
1243+
SvREFCNT_dec(PL_utf8_tofold);
1244+
PL_utf8_tofold = NULL;
1245+
SvREFCNT_dec(PL_utf8_tosimplefold);
1246+
PL_utf8_tosimplefold = NULL;
1247+
SvREFCNT_dec(PL_utf8_charname_begin);
1248+
PL_utf8_charname_begin = NULL;
1249+
SvREFCNT_dec(PL_utf8_charname_continue);
1250+
PL_utf8_charname_continue = NULL;
1251+
SvREFCNT_dec(PL_utf8_mark);
1252+
PL_utf8_mark = NULL;
1253+
SvREFCNT_dec(PL_InBitmap);
1254+
PL_InBitmap = NULL;
1255+
SvREFCNT_dec(PL_CCC_non0_non230);
1256+
PL_CCC_non0_non230 = NULL;
1257+
SvREFCNT_dec(PL_Private_Use);
1258+
PL_Private_Use = NULL;
1259+
1260+
for (i = 0; i < POSIX_CC_COUNT; i++) {
1261+
SvREFCNT_dec(PL_XPosix_ptrs[i]);
1262+
PL_XPosix_ptrs[i] = NULL;
1263+
1264+
if (i != _CC_CASED) { /* A copy of Alpha */
1265+
SvREFCNT_dec(PL_Posix_ptrs[i]);
1266+
PL_Posix_ptrs[i] = NULL;
1267+
}
1268+
}
1269+
11991270
if (!specialWARN(PL_compiling.cop_warnings))
12001271
PerlMemShared_free(PL_compiling.cop_warnings);
12011272
PL_compiling.cop_warnings = NULL;

‎perlapi.h

Lines changed: 0 additions & 64 deletions
Original file line numberDiff line numberDiff line change
@@ -99,42 +99,8 @@ END_EXTERN_C
9999

100100
#else /* !PERL_CORE */
101101

102-
#undef PL_AboveLatin1
103-
#define PL_AboveLatin1 (*Perl_GAboveLatin1_ptr(NULL))
104-
#undef PL_Assigned_invlist
105-
#define PL_Assigned_invlist (*Perl_GAssigned_invlist_ptr(NULL))
106-
#undef PL_CCC_non0_non230
107-
#define PL_CCC_non0_non230 (*Perl_GCCC_non0_non230_ptr(NULL))
108102
#undef PL_C_locale_obj
109103
#define PL_C_locale_obj (*Perl_GC_locale_obj_ptr(NULL))
110-
#undef PL_GCB_invlist
111-
#define PL_GCB_invlist (*Perl_GGCB_invlist_ptr(NULL))
112-
#undef PL_HasMultiCharFold
113-
#define PL_HasMultiCharFold (*Perl_GHasMultiCharFold_ptr(NULL))
114-
#undef PL_InBitmap
115-
#define PL_InBitmap (*Perl_GInBitmap_ptr(NULL))
116-
#undef PL_InMultiCharFold
117-
#define PL_InMultiCharFold (*Perl_GInMultiCharFold_ptr(NULL))
118-
#undef PL_LB_invlist
119-
#define PL_LB_invlist (*Perl_GLB_invlist_ptr(NULL))
120-
#undef PL_Latin1
121-
#define PL_Latin1 (*Perl_GLatin1_ptr(NULL))
122-
#undef PL_NonFinalFold
123-
#define PL_NonFinalFold (*Perl_GNonFinalFold_ptr(NULL))
124-
#undef PL_Posix_ptrs
125-
#define PL_Posix_ptrs (*Perl_GPosix_ptrs_ptr(NULL))
126-
#undef PL_Private_Use
127-
#define PL_Private_Use (*Perl_GPrivate_Use_ptr(NULL))
128-
#undef PL_SB_invlist
129-
#define PL_SB_invlist (*Perl_GSB_invlist_ptr(NULL))
130-
#undef PL_SCX_invlist
131-
#define PL_SCX_invlist (*Perl_GSCX_invlist_ptr(NULL))
132-
#undef PL_UpperLatin1
133-
#define PL_UpperLatin1 (*Perl_GUpperLatin1_ptr(NULL))
134-
#undef PL_WB_invlist
135-
#define PL_WB_invlist (*Perl_GWB_invlist_ptr(NULL))
136-
#undef PL_XPosix_ptrs
137-
#define PL_XPosix_ptrs (*Perl_GXPosix_ptrs_ptr(NULL))
138104
#undef PL_appctx
139105
#define PL_appctx (*Perl_Gappctx_ptr(NULL))
140106
#undef PL_check
@@ -161,8 +127,6 @@ END_EXTERN_C
161127
#define PL_hash_state (*Perl_Ghash_state_ptr(NULL))
162128
#undef PL_hints_mutex
163129
#define PL_hints_mutex (*Perl_Ghints_mutex_ptr(NULL))
164-
#undef PL_in_some_fold
165-
#define PL_in_some_fold (*Perl_Gin_some_fold_ptr(NULL))
166130
#undef PL_keyword_plugin
167131
#define PL_keyword_plugin (*Perl_Gkeyword_plugin_ptr(NULL))
168132
#undef PL_keyword_plugin_mutex
@@ -245,36 +209,8 @@ END_EXTERN_C
245209
#define PL_user_def_props_aTHX (*Perl_Guser_def_props_aTHX_ptr(NULL))
246210
#undef PL_user_prop_mutex
247211
#define PL_user_prop_mutex (*Perl_Guser_prop_mutex_ptr(NULL))
248-
#undef PL_utf8_charname_begin
249-
#define PL_utf8_charname_begin (*Perl_Gutf8_charname_begin_ptr(NULL))
250-
#undef PL_utf8_charname_continue
251-
#define PL_utf8_charname_continue (*Perl_Gutf8_charname_continue_ptr(NULL))
252212
#undef PL_utf8_foldclosures
253213
#define PL_utf8_foldclosures (*Perl_Gutf8_foldclosures_ptr(NULL))
254-
#undef PL_utf8_idcont
255-
#define PL_utf8_idcont (*Perl_Gutf8_idcont_ptr(NULL))
256-
#undef PL_utf8_idstart
257-
#define PL_utf8_idstart (*Perl_Gutf8_idstart_ptr(NULL))
258-
#undef PL_utf8_mark
259-
#define PL_utf8_mark (*Perl_Gutf8_mark_ptr(NULL))
260-
#undef PL_utf8_perl_idcont
261-
#define PL_utf8_perl_idcont (*Perl_Gutf8_perl_idcont_ptr(NULL))
262-
#undef PL_utf8_perl_idstart
263-
#define PL_utf8_perl_idstart (*Perl_Gutf8_perl_idstart_ptr(NULL))
264-
#undef PL_utf8_tofold
265-
#define PL_utf8_tofold (*Perl_Gutf8_tofold_ptr(NULL))
266-
#undef PL_utf8_tolower
267-
#define PL_utf8_tolower (*Perl_Gutf8_tolower_ptr(NULL))
268-
#undef PL_utf8_tosimplefold
269-
#define PL_utf8_tosimplefold (*Perl_Gutf8_tosimplefold_ptr(NULL))
270-
#undef PL_utf8_totitle
271-
#define PL_utf8_totitle (*Perl_Gutf8_totitle_ptr(NULL))
272-
#undef PL_utf8_toupper
273-
#define PL_utf8_toupper (*Perl_Gutf8_toupper_ptr(NULL))
274-
#undef PL_utf8_xidcont
275-
#define PL_utf8_xidcont (*Perl_Gutf8_xidcont_ptr(NULL))
276-
#undef PL_utf8_xidstart
277-
#define PL_utf8_xidstart (*Perl_Gutf8_xidstart_ptr(NULL))
278214
#undef PL_veto_cleanup
279215
#define PL_veto_cleanup (*Perl_Gveto_cleanup_ptr(NULL))
280216
#undef PL_watch_pvx

0 commit comments

Comments
 (0)