[DOC PATCH] Pluggable runops
[p5sagit/p5-mst-13.2.git] / embed.h
diff --git a/embed.h b/embed.h
index 7424976..ba67052 100644 (file)
--- a/embed.h
+++ b/embed.h
 #define sv_collxfrm            Perl_sv_collxfrm
 #endif
 #define sv_compile_2op         Perl_sv_compile_2op
-#define sv_getcwd              Perl_sv_getcwd
+#define getcwd_sv              Perl_getcwd_sv
 #define sv_dec                 Perl_sv_dec
 #define sv_dump                        Perl_sv_dump
 #define sv_derived_from                Perl_sv_derived_from
 #define force_version          S_force_version
 #define force_word             S_force_word
 #define tokeq                  S_tokeq
+#define pending_ident          S_pending_ident
 #define scan_const             S_scan_const
 #define scan_formline          S_scan_formline
 #define scan_heredoc           S_scan_heredoc
 #define ck_match               Perl_ck_match
 #define ck_method              Perl_ck_method
 #define ck_null                        Perl_ck_null
+#define ck_octmode             Perl_ck_octmode
 #define ck_open                        Perl_ck_open
 #define ck_repeat              Perl_ck_repeat
 #define ck_require             Perl_ck_require
 #define sv_collxfrm(a,b)       Perl_sv_collxfrm(aTHX_ a,b)
 #endif
 #define sv_compile_2op(a,b,c,d)        Perl_sv_compile_2op(aTHX_ a,b,c,d)
-#define sv_getcwd(a)           Perl_sv_getcwd(aTHX_ a)
+#define getcwd_sv(a)           Perl_getcwd_sv(aTHX_ a)
 #define sv_dec(a)              Perl_sv_dec(aTHX_ a)
 #define sv_dump(a)             Perl_sv_dump(aTHX_ a)
 #define sv_derived_from(a,b)   Perl_sv_derived_from(aTHX_ a,b)
 #define my_attrs(a,b)          Perl_my_attrs(aTHX_ a,b)
 #define boot_core_xsutils()    Perl_boot_core_xsutils(aTHX)
 #if defined(USE_ITHREADS)
-#define cx_dup(a,b,c)          Perl_cx_dup(aTHX_ a,b,c)
-#define si_dup(a)              Perl_si_dup(aTHX_ a)
-#define ss_dup(a)              Perl_ss_dup(aTHX_ a)
+#define cx_dup(a,b,c,d)                Perl_cx_dup(aTHX_ a,b,c,d)
+#define si_dup(a,b)            Perl_si_dup(aTHX_ a,b)
+#define ss_dup(a,b)            Perl_ss_dup(aTHX_ a,b)
 #define any_dup(a,b)           Perl_any_dup(aTHX_ a,b)
-#define he_dup(a,b)            Perl_he_dup(aTHX_ a,b)
+#define he_dup(a,b,c)          Perl_he_dup(aTHX_ a,b,c)
 #define re_dup(a)              Perl_re_dup(aTHX_ a)
 #define fp_dup(a,b)            Perl_fp_dup(aTHX_ a,b)
 #define dirp_dup(a)            Perl_dirp_dup(aTHX_ a)
-#define gp_dup(a)              Perl_gp_dup(aTHX_ a)
-#define mg_dup(a)              Perl_mg_dup(aTHX_ a)
-#define sv_dup(a)              Perl_sv_dup(aTHX_ a)
+#define gp_dup(a,b)            Perl_gp_dup(aTHX_ a,b)
+#define mg_dup(a,b)            Perl_mg_dup(aTHX_ a,b)
+#define sv_dup(a,b)            Perl_sv_dup(aTHX_ a,b)
 #if defined(HAVE_INTERP_INTERN)
 #define sys_intern_dup(a,b)    Perl_sys_intern_dup(aTHX_ a,b)
 #endif
 #define force_version(a)       S_force_version(aTHX_ a)
 #define force_word(a,b,c,d,e)  S_force_word(aTHX_ a,b,c,d,e)
 #define tokeq(a)               S_tokeq(aTHX_ a)
+#define pending_ident()                S_pending_ident(aTHX)
 #define scan_const(a)          S_scan_const(aTHX_ a)
 #define scan_formline(a)       S_scan_formline(aTHX_ a)
 #define scan_heredoc(a)                S_scan_heredoc(aTHX_ a)
 #define ck_match(a)            Perl_ck_match(aTHX_ a)
 #define ck_method(a)           Perl_ck_method(aTHX_ a)
 #define ck_null(a)             Perl_ck_null(aTHX_ a)
+#define ck_octmode(a)          Perl_ck_octmode(aTHX_ a)
 #define ck_open(a)             Perl_ck_open(aTHX_ a)
 #define ck_repeat(a)           Perl_ck_repeat(aTHX_ a)
 #define ck_require(a)          Perl_ck_require(aTHX_ a)
 #  if defined(PERL_IMPLICIT_SYS)
 #  endif
 #endif
-#if defined(MYMALLOC)
 #define malloc                 Perl_malloc
 #define calloc                 Perl_calloc
 #define realloc                        Perl_realloc
 #define mfree                  Perl_mfree
+#if defined(MYMALLOC)
 #define malloced_size          Perl_malloced_size
 #endif
 #define get_context            Perl_get_context
 #endif
 #define Perl_sv_compile_2op    CPerlObj::Perl_sv_compile_2op
 #define sv_compile_2op         Perl_sv_compile_2op
-#define Perl_sv_getcwd         CPerlObj::Perl_sv_getcwd
-#define sv_getcwd              Perl_sv_getcwd
+#define Perl_getcwd_sv         CPerlObj::Perl_getcwd_sv
+#define getcwd_sv              Perl_getcwd_sv
 #define Perl_sv_dec            CPerlObj::Perl_sv_dec
 #define sv_dec                 Perl_sv_dec
 #define Perl_sv_dump           CPerlObj::Perl_sv_dump
 #define force_word             S_force_word
 #define S_tokeq                        CPerlObj::S_tokeq
 #define tokeq                  S_tokeq
+#define S_pending_ident                CPerlObj::S_pending_ident
+#define pending_ident          S_pending_ident
 #define S_scan_const           CPerlObj::S_scan_const
 #define scan_const             S_scan_const
 #define S_scan_formline                CPerlObj::S_scan_formline
 #define ck_method              Perl_ck_method
 #define Perl_ck_null           CPerlObj::Perl_ck_null
 #define ck_null                        Perl_ck_null
+#define Perl_ck_octmode                CPerlObj::Perl_ck_octmode
+#define ck_octmode             Perl_ck_octmode
 #define Perl_ck_open           CPerlObj::Perl_ck_open
 #define ck_open                        Perl_ck_open
 #define Perl_ck_repeat         CPerlObj::Perl_ck_repeat