This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make cxinc member of the public API
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 27 Jul 2009 07:43:16 +0000 (09:43 +0200)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 27 Jul 2009 07:43:16 +0000 (09:43 +0200)
This way, MULTICALL_PUSH will be available to XS code without defining
PERL_CORE or PERL_EXT (bug #67894)

embed.fnc
embed.h

index 4dc2706..aed661b 100644 (file)
--- 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 (file)
--- a/embed.h
+++ b/embed.h
 #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
 #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)