Introduces SvREPADTMP(sv) that marks a repad SvIV as a offset

[p5sagit/p5-mst-13.2.git] / objXSUB.h

diff --git a/objXSUB.h b/objXSUB.h
index a3cb92c..d9d73b7 100644 (file)
--- a/objXSUB.h
+++ b/objXSUB.h
@@ -157,7 +157,7 @@
 #undef  my_chsize
 #define my_chsize              Perl_my_chsize
 #endif
-#if defined(USE_THREADS)
+#if defined(USE_5005THREADS)
 #undef  Perl_condpair_magic
 #define Perl_condpair_magic    pPerl->Perl_condpair_magic
 #undef  condpair_magic
@@ -383,7 +383,7 @@
 #define Perl_fbm_instr         pPerl->Perl_fbm_instr
 #undef  fbm_instr
 #define fbm_instr              Perl_fbm_instr
-#if defined(USE_THREADS)
+#if defined(USE_5005THREADS)
 #endif
 #undef  Perl_form
 #define Perl_form              pPerl->Perl_form
@@ -795,6 +795,10 @@
 #define Perl_leave_scope       pPerl->Perl_leave_scope
 #undef  leave_scope
 #define leave_scope            Perl_leave_scope
+#undef  Perl_op_null
+#define Perl_op_null           pPerl->Perl_op_null
+#undef  op_null
+#define op_null                        Perl_op_null
 #undef  Perl_load_module
 #define Perl_load_module       pPerl->Perl_load_module
 #undef  load_module
@@ -807,7 +811,15 @@
 #define Perl_looks_like_number pPerl->Perl_looks_like_number
 #undef  looks_like_number
 #define looks_like_number      Perl_looks_like_number
-#if defined(USE_THREADS)
+#undef  Perl_grok_number
+#define Perl_grok_number       pPerl->Perl_grok_number
+#undef  grok_number
+#define grok_number            Perl_grok_number
+#undef  Perl_grok_numeric_radix
+#define Perl_grok_numeric_radix        pPerl->Perl_grok_numeric_radix
+#undef  grok_numeric_radix
+#define grok_numeric_radix     Perl_grok_numeric_radix
+#if defined(USE_5005THREADS)
 #endif
 #if defined(USE_LOCALE_COLLATE)
 #endif
@@ -873,7 +885,7 @@
 #define Perl_my_atof           pPerl->Perl_my_atof
 #undef  my_atof
 #define my_atof                        Perl_my_atof
-#if !defined(HAS_BCOPY) || !defined(HAS_SAFE_BCOPY)
+#if (!defined(HAS_MEMCPY) && !defined(HAS_BCOPY)) || (!defined(HAS_MEMMOVE) && !defined(HAS_SAFE_MEMCPY) && !defined(HAS_SAFE_BCOPY))
 #undef  Perl_my_bcopy
 #define Perl_my_bcopy          pPerl->Perl_my_bcopy
 #undef  my_bcopy
@@ -897,6 +909,18 @@
 #define Perl_my_fflush_all     pPerl->Perl_my_fflush_all
 #undef  my_fflush_all
 #define my_fflush_all          Perl_my_fflush_all
+#undef  Perl_my_fork
+#define Perl_my_fork           pPerl->Perl_my_fork
+#undef  my_fork
+#define my_fork                        Perl_my_fork
+#undef  Perl_atfork_lock
+#define Perl_atfork_lock       pPerl->Perl_atfork_lock
+#undef  atfork_lock
+#define atfork_lock            Perl_atfork_lock
+#undef  Perl_atfork_unlock
+#define Perl_atfork_unlock     pPerl->Perl_atfork_unlock
+#undef  atfork_unlock
+#define atfork_unlock          Perl_atfork_unlock
 #undef  Perl_my_lstat
 #define Perl_my_lstat          pPerl->Perl_my_lstat
 #undef  my_lstat
@@ -1185,7 +1209,7 @@
 #undef  Perl_parse
 #define Perl_parse             pPerl->Perl_parse
 #endif
-#if defined(USE_THREADS)
+#if defined(USE_5005THREADS)
 #undef  Perl_new_struct_thread
 #define Perl_new_struct_thread pPerl->Perl_new_struct_thread
 #undef  new_struct_thread
@@ -1645,10 +1669,10 @@
 #define Perl_sv_compile_2op    pPerl->Perl_sv_compile_2op
 #undef  sv_compile_2op
 #define sv_compile_2op         Perl_sv_compile_2op
-#undef  Perl_sv_getcwd
-#define Perl_sv_getcwd         pPerl->Perl_sv_getcwd
-#undef  sv_getcwd
-#define sv_getcwd              Perl_sv_getcwd
+#undef  Perl_getcwd_sv
+#define Perl_getcwd_sv         pPerl->Perl_getcwd_sv
+#undef  getcwd_sv
+#define getcwd_sv              Perl_getcwd_sv
 #undef  Perl_sv_dec
 #define Perl_sv_dec            pPerl->Perl_sv_dec
 #undef  sv_dec
@@ -1741,10 +1765,6 @@
 #define Perl_sv_pvbyten_force  pPerl->Perl_sv_pvbyten_force
 #undef  sv_pvbyten_force
 #define sv_pvbyten_force       Perl_sv_pvbyten_force
-#undef  Perl_sv_realpath
-#define Perl_sv_realpath       pPerl->Perl_sv_realpath
-#undef  sv_realpath
-#define sv_realpath            Perl_sv_realpath
 #undef  Perl_sv_reftype
 #define Perl_sv_reftype                pPerl->Perl_sv_reftype
 #undef  sv_reftype
@@ -1895,7 +1915,7 @@
 #undef  unlnk
 #define unlnk                  Perl_unlnk
 #endif
-#if defined(USE_THREADS)
+#if defined(USE_5005THREADS)
 #undef  Perl_unlock_condpair
 #define Perl_unlock_condpair   pPerl->Perl_unlock_condpair
 #undef  unlock_condpair
@@ -2041,7 +2061,7 @@
 #define Perl_runops_debug      pPerl->Perl_runops_debug
 #undef  runops_debug
 #define runops_debug           Perl_runops_debug
-#if defined(USE_THREADS)
+#if defined(USE_5005THREADS)
 #undef  Perl_sv_lock
 #define Perl_sv_lock           pPerl->Perl_sv_lock
 #undef  sv_lock
@@ -2319,6 +2339,16 @@
 #undef  sys_intern_init
 #define sys_intern_init                Perl_sys_intern_init
 #endif
+#if defined(PERL_CUSTOM_OPS)
+#undef  Perl_custom_op_name
+#define Perl_custom_op_name    pPerl->Perl_custom_op_name
+#undef  custom_op_name
+#define custom_op_name         Perl_custom_op_name
+#undef  Perl_custom_op_desc
+#define Perl_custom_op_desc    pPerl->Perl_custom_op_desc
+#undef  custom_op_desc
+#define custom_op_desc         Perl_custom_op_desc
+#endif
 #if defined(PERL_OBJECT)
 #else
 #endif
@@ -2343,11 +2373,13 @@
 #  endif
 #if defined(PERL_FLEXIBLE_EXCEPTIONS)
 #endif
-#  if defined(USE_THREADS)
+#  if defined(USE_5005THREADS)
 #  endif
 #endif
 #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
 #endif
+#if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT)
+#endif
 #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
 #if defined(PERL_FLEXIBLE_EXCEPTIONS)
 #endif
@@ -2359,15 +2391,49 @@
 #  endif
 #endif
 #if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT)
+#  ifdef DEBUGGING
+#  endif
 #endif
 #if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
 #endif
 #if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT)
+#   ifdef DEBUGGING
+#   endif
 #endif
 #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
 #endif
+#if defined(USE_ITHREADS) && (defined(PERL_IN_SHAREDSV_C) || defined(PERL_DECL_PROT))
+#undef  Perl_sharedsv_init
+#define Perl_sharedsv_init     pPerl->Perl_sharedsv_init
+#undef  sharedsv_init
+#define sharedsv_init          Perl_sharedsv_init
+#undef  Perl_sharedsv_new
+#define Perl_sharedsv_new      pPerl->Perl_sharedsv_new
+#undef  sharedsv_new
+#define sharedsv_new           Perl_sharedsv_new
+#undef  Perl_sharedsv_find
+#define Perl_sharedsv_find     pPerl->Perl_sharedsv_find
+#undef  sharedsv_find
+#define sharedsv_find          Perl_sharedsv_find
+#undef  Perl_sharedsv_lock
+#define Perl_sharedsv_lock     pPerl->Perl_sharedsv_lock
+#undef  sharedsv_lock
+#define sharedsv_lock          Perl_sharedsv_lock
+#undef  Perl_sharedsv_unlock
+#define Perl_sharedsv_unlock   pPerl->Perl_sharedsv_unlock
+#undef  sharedsv_unlock
+#define sharedsv_unlock                Perl_sharedsv_unlock
+#undef  Perl_sharedsv_thrcnt_inc
+#define Perl_sharedsv_thrcnt_inc       pPerl->Perl_sharedsv_thrcnt_inc
+#undef  sharedsv_thrcnt_inc
+#define sharedsv_thrcnt_inc    Perl_sharedsv_thrcnt_inc
+#undef  Perl_sharedsv_thrcnt_dec
+#define Perl_sharedsv_thrcnt_dec       pPerl->Perl_sharedsv_thrcnt_dec
+#undef  sharedsv_thrcnt_dec
+#define sharedsv_thrcnt_dec    Perl_sharedsv_thrcnt_dec
+#endif
 #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
-#  if defined(DEBUGGING)
+#  ifdef DEBUGGING
 #  endif
 #  if !defined(NV_PRESERVES_UV)
 #  endif
@@ -2375,6 +2441,8 @@
 #  endif
 #endif
 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
+#  if defined(DEBUGGING)
+#  endif
 #if 0
 #endif
 #  if defined(CRIPPLED_CC)
@@ -2384,6 +2452,8 @@
 #endif
 #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
 #endif
+#if defined(PERL_IN_LOCALE_C) || defined(PERL_DECL_PROT)
+#endif
 #if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
 #  if defined(LEAKTEST)
 #  endif
@@ -2414,6 +2484,10 @@
 #define Perl_sv_2pv_flags      pPerl->Perl_sv_2pv_flags
 #undef  sv_2pv_flags
 #define sv_2pv_flags           Perl_sv_2pv_flags
+#undef  Perl_my_atof2
+#define Perl_my_atof2          pPerl->Perl_my_atof2
+#undef  my_atof2
+#define my_atof2               Perl_my_atof2
 
 #endif  /* PERL_CORE && PERL_OBJECT */
 #endif /* __objXSUB_h__ */