cSVOPo_*v things index into the current PL_curpad

[perl5.git] / objXSUB.h

diff --git a/objXSUB.h b/objXSUB.h
index 97fdeef..3e0ccce 100644 (file)
--- a/objXSUB.h
+++ b/objXSUB.h
@@ -83,10 +83,6 @@
 #define Perl_av_extend         pPerl->Perl_av_extend
 #undef  av_extend
 #define av_extend              Perl_av_extend
-#undef  Perl_av_fake
-#define Perl_av_fake           pPerl->Perl_av_fake
-#undef  av_fake
-#define av_fake                        Perl_av_fake
 #undef  Perl_av_fetch
 #define Perl_av_fetch          pPerl->Perl_av_fetch
 #undef  av_fetch
@@ -111,10 +107,6 @@
 #define Perl_av_push           pPerl->Perl_av_push
 #undef  av_push
 #define av_push                        Perl_av_push
-#undef  Perl_av_reify
-#define Perl_av_reify          pPerl->Perl_av_reify
-#undef  av_reify
-#define av_reify               Perl_av_reify
 #undef  Perl_av_shift
 #define Perl_av_shift          pPerl->Perl_av_shift
 #undef  av_shift
@@ -431,6 +423,10 @@
 #define Perl_gv_efullname3     pPerl->Perl_gv_efullname3
 #undef  gv_efullname3
 #define gv_efullname3          Perl_gv_efullname3
+#undef  Perl_gv_efullname4
+#define Perl_gv_efullname4     pPerl->Perl_gv_efullname4
+#undef  gv_efullname4
+#define gv_efullname4          Perl_gv_efullname4
 #undef  Perl_gv_fetchfile
 #define Perl_gv_fetchfile      pPerl->Perl_gv_fetchfile
 #undef  gv_fetchfile
@@ -459,6 +455,10 @@
 #define Perl_gv_fullname3      pPerl->Perl_gv_fullname3
 #undef  gv_fullname3
 #define gv_fullname3           Perl_gv_fullname3
+#undef  Perl_gv_fullname4
+#define Perl_gv_fullname4      pPerl->Perl_gv_fullname4
+#undef  gv_fullname4
+#define gv_fullname4           Perl_gv_fullname4
 #undef  Perl_gv_init
 #define Perl_gv_init           pPerl->Perl_gv_init
 #undef  gv_init
@@ -1954,6 +1954,12 @@
 #define Perl_runops_debug      pPerl->Perl_runops_debug
 #undef  runops_debug
 #define runops_debug           Perl_runops_debug
+#if defined(USE_THREADS)
+#undef  Perl_sv_lock
+#define Perl_sv_lock           pPerl->Perl_sv_lock
+#undef  sv_lock
+#define sv_lock                        Perl_sv_lock
+#endif
 #undef  Perl_sv_catpvf_mg
 #define Perl_sv_catpvf_mg      pPerl->Perl_sv_catpvf_mg
 #undef  sv_catpvf_mg
@@ -2182,18 +2188,10 @@
 #undef  sv_dup
 #define sv_dup                 Perl_sv_dup
 #if defined(HAVE_INTERP_INTERN)
-#undef  Perl_sys_intern_clear
-#define Perl_sys_intern_clear  pPerl->Perl_sys_intern_clear
-#undef  sys_intern_clear
-#define sys_intern_clear       Perl_sys_intern_clear
 #undef  Perl_sys_intern_dup
 #define Perl_sys_intern_dup    pPerl->Perl_sys_intern_dup
 #undef  sys_intern_dup
 #define sys_intern_dup         Perl_sys_intern_dup
-#undef  Perl_sys_intern_init
-#define Perl_sys_intern_init   pPerl->Perl_sys_intern_init
-#undef  sys_intern_init
-#define sys_intern_init                Perl_sys_intern_init
 #endif
 #undef  Perl_ptr_table_new
 #define Perl_ptr_table_new     pPerl->Perl_ptr_table_new
@@ -2212,6 +2210,16 @@
 #undef  ptr_table_split
 #define ptr_table_split                Perl_ptr_table_split
 #endif
+#if defined(HAVE_INTERP_INTERN)
+#undef  Perl_sys_intern_clear
+#define Perl_sys_intern_clear  pPerl->Perl_sys_intern_clear
+#undef  sys_intern_clear
+#define sys_intern_clear       Perl_sys_intern_clear
+#undef  Perl_sys_intern_init
+#define Perl_sys_intern_init   pPerl->Perl_sys_intern_init
+#undef  sys_intern_init
+#define sys_intern_init                Perl_sys_intern_init
+#endif
 #if defined(PERL_OBJECT)
 #else
 #endif
@@ -2275,10 +2283,6 @@
 #  if defined(LEAKTEST)
 #  endif
 #endif
-#undef  Perl_lock
-#define Perl_lock              pPerl->Perl_lock
-#undef  lock
-#define lock                   Perl_lock
 #if defined(PERL_OBJECT)
 #endif