From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 27 Jul 2009 07:43:16 +0000 (+0200)
Subject: Make cxinc member of the public API
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=82151c42dd2dcb2b5aacadb82f4f0b1ddff252bd;p=p5sagit%2Fp5-mst-13.2.git

Make cxinc member of the public API

This way, MULTICALL_PUSH will be available to XS code without defining
PERL_CORE or PERL_EXT (bug #67894)
---

diff --git a/embed.fnc b/embed.fnc
index 4dc2706..aed661b 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -201,7 +201,7 @@ pPR	|const char*	|get_no_modify
 pPR	|U32*	|get_opargs
 ApPR	|PPADDR_t*|get_ppaddr
 : Used by CXINC, which appears to be in widespread use
-EXpR	|I32	|cxinc
+ApR	|I32	|cxinc
 Afp	|void	|deb		|NN const char* pat|...
 Ap	|void	|vdeb		|NN const char* pat|NULLOK va_list* args
 Ap	|void	|debprofdump
diff --git a/embed.h b/embed.h
index 0ef5ff2..93dfa74 100644
--- a/embed.h
+++ b/embed.h
@@ -140,9 +140,7 @@
 #define get_opargs		Perl_get_opargs
 #endif
 #define get_ppaddr		Perl_get_ppaddr
-#if defined(PERL_CORE) || defined(PERL_EXT)
 #define cxinc			Perl_cxinc
-#endif
 #define deb			Perl_deb
 #define vdeb			Perl_vdeb
 #define debprofdump		Perl_debprofdump
@@ -2470,9 +2468,7 @@
 #define get_opargs()		Perl_get_opargs(aTHX)
 #endif
 #define get_ppaddr()		Perl_get_ppaddr(aTHX)
-#if defined(PERL_CORE) || defined(PERL_EXT)
 #define cxinc()			Perl_cxinc(aTHX)
-#endif
 #define vdeb(a,b)		Perl_vdeb(aTHX_ a,b)
 #define debprofdump()		Perl_debprofdump(aTHX)
 #define debop(a)		Perl_debop(aTHX_ a)