Integrate change #14062 from macperl;

[perl5.git] / perlapi.h

diff --git a/perlapi.h b/perlapi.h
index 0592374..3d74ecd 100644 (file)
--- a/perlapi.h
+++ b/perlapi.h
@@ -183,6 +183,8 @@ END_EXTERN_C
 #define PL_debstash            (*Perl_Idebstash_ptr(aTHX))
 #undef  PL_debug
 #define PL_debug               (*Perl_Idebug_ptr(aTHX))
+#undef  PL_debug_pad
+#define PL_debug_pad           (*Perl_Idebug_pad_ptr(aTHX))
 #undef  PL_def_layerlist
 #define PL_def_layerlist       (*Perl_Idef_layerlist_ptr(aTHX))
 #undef  PL_defgv
@@ -533,6 +535,8 @@ END_EXTERN_C
 #define PL_svref_mutex         (*Perl_Isvref_mutex_ptr(aTHX))
 #undef  PL_sys_intern
 #define PL_sys_intern          (*Perl_Isys_intern_ptr(aTHX))
+#undef  PL_taint_warn
+#define PL_taint_warn          (*Perl_Itaint_warn_ptr(aTHX))
 #undef  PL_tainting
 #define PL_tainting            (*Perl_Itainting_ptr(aTHX))
 #undef  PL_threadnum
@@ -573,6 +577,8 @@ END_EXTERN_C
 #define PL_utf8_punct          (*Perl_Iutf8_punct_ptr(aTHX))
 #undef  PL_utf8_space
 #define PL_utf8_space          (*Perl_Iutf8_space_ptr(aTHX))
+#undef  PL_utf8_tofold
+#define PL_utf8_tofold         (*Perl_Iutf8_tofold_ptr(aTHX))
 #undef  PL_utf8_tolower
 #define PL_utf8_tolower                (*Perl_Iutf8_tolower_ptr(aTHX))
 #undef  PL_utf8_totitle
@@ -727,6 +733,8 @@ END_EXTERN_C
 #define PL_modcount            (*Perl_Tmodcount_ptr(aTHX))
 #undef  PL_na
 #define PL_na                  (*Perl_Tna_ptr(aTHX))
+#undef  PL_nrs
+#define PL_nrs                 (*Perl_Tnrs_ptr(aTHX))
 #undef  PL_ofs_sv
 #define PL_ofs_sv              (*Perl_Tofs_sv_ptr(aTHX))
 #undef  PL_op
@@ -913,8 +921,6 @@ END_EXTERN_C
 #define PL_top_env             (*Perl_Ttop_env_ptr(aTHX))
 #undef  PL_toptarget
 #define PL_toptarget           (*Perl_Ttoptarget_ptr(aTHX))
-#undef  PL_unused_1
-#define PL_unused_1            (*Perl_Tunused_1_ptr(aTHX))
 #undef  PL_watchaddr
 #define PL_watchaddr           (*Perl_Twatchaddr_ptr(aTHX))
 #undef  PL_watchok
@@ -935,6 +941,10 @@ END_EXTERN_C
 #define PL_op_mutex            (*Perl_Gop_mutex_ptr(NULL))
 #undef  PL_patleave
 #define PL_patleave            (*Perl_Gpatleave_ptr(NULL))
+#undef  PL_runops_dbg
+#define PL_runops_dbg          (*Perl_Grunops_dbg_ptr(NULL))
+#undef  PL_runops_std
+#define PL_runops_std          (*Perl_Grunops_std_ptr(NULL))
 #undef  PL_sharedsv_space
 #define PL_sharedsv_space      (*Perl_Gsharedsv_space_ptr(NULL))
 #undef  PL_sharedsv_space_mutex