Help -Dt show correct pad variables

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

diff --git a/embed.h b/embed.h
index 83afb92..ff6ffee 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -271,6 +271,7 @@
 #define ingroup                        Perl_ingroup
 #define init_debugger          Perl_init_debugger
 #define init_stacks            Perl_init_stacks
+#define init_tm                        Perl_init_tm
 #define intro_my               Perl_intro_my
 #define instr                  Perl_instr
 #define io_close               Perl_io_close
@@ -409,6 +410,7 @@
 #define mg_magical             Perl_mg_magical
 #define mg_set                 Perl_mg_set
 #define mg_size                        Perl_mg_size
+#define mini_mktime            Perl_mini_mktime
 #define mod                    Perl_mod
 #define mode_from_discipline   Perl_mode_from_discipline
 #define moreswitches           Perl_moreswitches
@@ -433,9 +435,11 @@
 #if !defined(PERL_OBJECT)
 #define my_pclose              Perl_my_pclose
 #define my_popen               Perl_my_popen
+#define my_popen_list          Perl_my_popen_list
 #endif
 #define my_setenv              Perl_my_setenv
 #define my_stat                        Perl_my_stat
+#define my_strftime            Perl_my_strftime
 #if defined(MYSWAP)
 #define my_swap                        Perl_my_swap
 #define my_htonl               Perl_my_htonl
@@ -598,6 +602,7 @@
 #define save_iv                        Perl_save_iv
 #define save_list              Perl_save_list
 #define save_long              Perl_save_long
+#define save_mortalizesv       Perl_save_mortalizesv
 #define save_nogv              Perl_save_nogv
 #define save_op                        Perl_save_op
 #define save_scalar            Perl_save_scalar
@@ -882,6 +887,7 @@
 #endif
 #if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT)
 #define gv_init_sv             S_gv_init_sv
+#define require_errno          S_require_errno
 #endif
 #if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
 #define hsplit                 S_hsplit
@@ -907,7 +913,6 @@
 #define scalarboolean          S_scalarboolean
 #define too_few_arguments      S_too_few_arguments
 #define too_many_arguments     S_too_many_arguments
-#define trlist_upgrade         S_trlist_upgrade
 #define op_clear               S_op_clear
 #define null                   S_null
 #define pad_addlex             S_pad_addlex
@@ -1048,6 +1053,7 @@
 #define find_byclass           S_find_byclass
 #endif
 #if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT)
+#define deb_curcv              S_deb_curcv
 #define debprof                        S_debprof
 #endif
 #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
@@ -1764,6 +1770,7 @@
 #define ingroup(a,b)           Perl_ingroup(aTHX_ a,b)
 #define init_debugger()                Perl_init_debugger(aTHX)
 #define init_stacks()          Perl_init_stacks(aTHX)
+#define init_tm(a)             Perl_init_tm(aTHX_ a)
 #define intro_my()             Perl_intro_my(aTHX)
 #define instr(a,b)             Perl_instr(aTHX_ a,b)
 #define io_close(a,b)          Perl_io_close(aTHX_ a,b)
@@ -1900,6 +1907,7 @@
 #define mg_magical(a)          Perl_mg_magical(aTHX_ a)
 #define mg_set(a)              Perl_mg_set(aTHX_ a)
 #define mg_size(a)             Perl_mg_size(aTHX_ a)
+#define mini_mktime(a)         Perl_mini_mktime(aTHX_ a)
 #define mod(a,b)               Perl_mod(aTHX_ a,b)
 #define mode_from_discipline(a)        Perl_mode_from_discipline(aTHX_ a)
 #define moreswitches(a)                Perl_moreswitches(aTHX_ a)
@@ -1924,9 +1932,11 @@
 #if !defined(PERL_OBJECT)
 #define my_pclose(a)           Perl_my_pclose(aTHX_ a)
 #define my_popen(a,b)          Perl_my_popen(aTHX_ a,b)
+#define my_popen_list(a,b,c)   Perl_my_popen_list(aTHX_ a,b,c)
 #endif
 #define my_setenv(a,b)         Perl_my_setenv(aTHX_ a,b)
 #define my_stat()              Perl_my_stat(aTHX)
+#define my_strftime(a,b,c,d,e,f,g,h,i,j)       Perl_my_strftime(aTHX_ a,b,c,d,e,f,g,h,i,j)
 #if defined(MYSWAP)
 #define my_swap(a)             Perl_my_swap(aTHX_ a)
 #define my_htonl(a)            Perl_my_htonl(aTHX_ a)
@@ -2088,6 +2098,7 @@
 #define save_iv(a)             Perl_save_iv(aTHX_ a)
 #define save_list(a,b)         Perl_save_list(aTHX_ a,b)
 #define save_long(a)           Perl_save_long(aTHX_ a)
+#define save_mortalizesv(a)    Perl_save_mortalizesv(aTHX_ a)
 #define save_nogv(a)           Perl_save_nogv(aTHX_ a)
 #define save_op()              Perl_save_op(aTHX)
 #define save_scalar(a)         Perl_save_scalar(aTHX_ a)
@@ -2206,7 +2217,7 @@
 #define sv_vsetpvfn(a,b,c,d,e,f,g)     Perl_sv_vsetpvfn(aTHX_ a,b,c,d,e,f,g)
 #define str_to_version(a)      Perl_str_to_version(aTHX_ a)
 #define swash_init(a,b,c,d,e)  Perl_swash_init(aTHX_ a,b,c,d,e)
-#define swash_fetch(a,b)       Perl_swash_fetch(aTHX_ a,b)
+#define swash_fetch(a,b,c)     Perl_swash_fetch(aTHX_ a,b,c)
 #define taint_env()            Perl_taint_env(aTHX)
 #define taint_proper(a,b)      Perl_taint_proper(aTHX_ a,b)
 #define to_utf8_lower(a)       Perl_to_utf8_lower(aTHX_ a)
@@ -2364,6 +2375,7 @@
 #endif
 #if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT)
 #define gv_init_sv(a,b)                S_gv_init_sv(aTHX_ a,b)
+#define require_errno(a)       S_require_errno(aTHX_ a)
 #endif
 #if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
 #define hsplit(a)              S_hsplit(aTHX_ a)
@@ -2389,7 +2401,6 @@
 #define scalarboolean(a)       S_scalarboolean(aTHX_ a)
 #define too_few_arguments(a,b) S_too_few_arguments(aTHX_ a,b)
 #define too_many_arguments(a,b)        S_too_many_arguments(aTHX_ a,b)
-#define trlist_upgrade(a,b)    S_trlist_upgrade(aTHX_ a,b)
 #define op_clear(a)            S_op_clear(aTHX_ a)
 #define null(a)                        S_null(aTHX_ a)
 #define pad_addlex(a)          S_pad_addlex(aTHX_ a)
@@ -2529,6 +2540,7 @@
 #define find_byclass(a,b,c,d,e,f)      S_find_byclass(aTHX_ a,b,c,d,e,f)
 #endif
 #if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT)
+#define deb_curcv(a)           S_deb_curcv(aTHX_ a)
 #define debprof(a)             S_debprof(aTHX_ a)
 #endif
 #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
@@ -3458,6 +3470,8 @@
 #define init_debugger          Perl_init_debugger
 #define Perl_init_stacks       CPerlObj::Perl_init_stacks
 #define init_stacks            Perl_init_stacks
+#define Perl_init_tm           CPerlObj::Perl_init_tm
+#define init_tm                        Perl_init_tm
 #define Perl_intro_my          CPerlObj::Perl_intro_my
 #define intro_my               Perl_intro_my
 #define Perl_instr             CPerlObj::Perl_instr
@@ -3728,6 +3742,8 @@
 #define mg_set                 Perl_mg_set
 #define Perl_mg_size           CPerlObj::Perl_mg_size
 #define mg_size                        Perl_mg_size
+#define Perl_mini_mktime       CPerlObj::Perl_mini_mktime
+#define mini_mktime            Perl_mini_mktime
 #define Perl_mod               CPerlObj::Perl_mod
 #define mod                    Perl_mod
 #define Perl_mode_from_discipline      CPerlObj::Perl_mode_from_discipline
@@ -3767,11 +3783,15 @@
 #define my_pclose              Perl_my_pclose
 #define Perl_my_popen          CPerlObj::Perl_my_popen
 #define my_popen               Perl_my_popen
+#define Perl_my_popen_list     CPerlObj::Perl_my_popen_list
+#define my_popen_list          Perl_my_popen_list
 #endif
 #define Perl_my_setenv         CPerlObj::Perl_my_setenv
 #define my_setenv              Perl_my_setenv
 #define Perl_my_stat           CPerlObj::Perl_my_stat
 #define my_stat                        Perl_my_stat
+#define Perl_my_strftime       CPerlObj::Perl_my_strftime
+#define my_strftime            Perl_my_strftime
 #if defined(MYSWAP)
 #define Perl_my_swap           CPerlObj::Perl_my_swap
 #define my_swap                        Perl_my_swap
@@ -4095,6 +4115,8 @@
 #define save_list              Perl_save_list
 #define Perl_save_long         CPerlObj::Perl_save_long
 #define save_long              Perl_save_long
+#define Perl_save_mortalizesv  CPerlObj::Perl_save_mortalizesv
+#define save_mortalizesv       Perl_save_mortalizesv
 #define Perl_save_nogv         CPerlObj::Perl_save_nogv
 #define save_nogv              Perl_save_nogv
 #define Perl_save_op           CPerlObj::Perl_save_op
@@ -4629,6 +4651,8 @@
 #if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT)
 #define S_gv_init_sv           CPerlObj::S_gv_init_sv
 #define gv_init_sv             S_gv_init_sv
+#define S_require_errno                CPerlObj::S_require_errno
+#define require_errno          S_require_errno
 #endif
 #if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
 #define S_hsplit               CPerlObj::S_hsplit
@@ -4673,8 +4697,6 @@
 #define too_few_arguments      S_too_few_arguments
 #define S_too_many_arguments   CPerlObj::S_too_many_arguments
 #define too_many_arguments     S_too_many_arguments
-#define S_trlist_upgrade       CPerlObj::S_trlist_upgrade
-#define trlist_upgrade         S_trlist_upgrade
 #define S_op_clear             CPerlObj::S_op_clear
 #define op_clear               S_op_clear
 #define S_null                 CPerlObj::S_null
@@ -4925,6 +4947,8 @@
 #define find_byclass           S_find_byclass
 #endif
 #if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT)
+#define S_deb_curcv            CPerlObj::S_deb_curcv
+#define deb_curcv              S_deb_curcv
 #define S_debprof              CPerlObj::S_debprof
 #define debprof                        S_debprof
 #endif