X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.h;h=fce8a2ee02961b0768d48a558243897719569d7b;hb=36bad43a54a7c90a90f0ef3c464b4224dbc21068;hp=dd5d6589693bb5e8a58326c391f1e78ad8470dc0;hpb=3568d8383f3d0b22eb07927391114af2a91b06ed;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/embed.h b/embed.h
index dd5d658..fce8a2e 100644
--- a/embed.h
+++ b/embed.h
@@ -334,6 +334,8 @@
 #define leave_scope		Perl_leave_scope
 #define lex_end			Perl_lex_end
 #define lex_start		Perl_lex_start
+#define op_null			Perl_op_null
+#define op_clear		Perl_op_clear
 #define linklist		Perl_linklist
 #define list			Perl_list
 #define listkids		Perl_listkids
@@ -913,8 +915,6 @@
 #define scalarboolean		S_scalarboolean
 #define too_few_arguments	S_too_few_arguments
 #define too_many_arguments	S_too_many_arguments
-#define op_clear		S_op_clear
-#define null			S_null
 #define pad_addlex		S_pad_addlex
 #define pad_findlex		S_pad_findlex
 #define newDEFSVOP		S_newDEFSVOP
@@ -1053,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)
@@ -1832,6 +1833,8 @@
 #define leave_scope(a)		Perl_leave_scope(aTHX_ a)
 #define lex_end()		Perl_lex_end(aTHX)
 #define lex_start(a)		Perl_lex_start(aTHX_ a)
+#define op_null(a)		Perl_op_null(aTHX_ a)
+#define op_clear(a)		Perl_op_clear(aTHX_ a)
 #define linklist(a)		Perl_linklist(aTHX_ a)
 #define list(a)			Perl_list(aTHX_ a)
 #define listkids(a)		Perl_listkids(aTHX_ a)
@@ -2400,8 +2403,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 op_clear(a)		S_op_clear(aTHX_ a)
-#define null(a)			S_null(aTHX_ a)
 #define pad_addlex(a)		S_pad_addlex(aTHX_ a)
 #define pad_findlex(a,b,c,d,e,f,g)	S_pad_findlex(aTHX_ a,b,c,d,e,f,g)
 #define newDEFSVOP()		S_newDEFSVOP(aTHX)
@@ -2539,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)
@@ -3594,6 +3596,10 @@
 #define lex_end			Perl_lex_end
 #define Perl_lex_start		CPerlObj::Perl_lex_start
 #define lex_start		Perl_lex_start
+#define Perl_op_null		CPerlObj::Perl_op_null
+#define op_null			Perl_op_null
+#define Perl_op_clear		CPerlObj::Perl_op_clear
+#define op_clear		Perl_op_clear
 #define Perl_linklist		CPerlObj::Perl_linklist
 #define linklist		Perl_linklist
 #define Perl_list		CPerlObj::Perl_list
@@ -4695,10 +4701,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_op_clear		CPerlObj::S_op_clear
-#define op_clear		S_op_clear
-#define S_null			CPerlObj::S_null
-#define null			S_null
 #define S_pad_addlex		CPerlObj::S_pad_addlex
 #define pad_addlex		S_pad_addlex
 #define S_pad_findlex		CPerlObj::S_pad_findlex
@@ -4945,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