In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/82151c42dd2dcb2b5aacadb82f4f0b1ddff252bd?hp=ff19758235b083652cade4f521dd2057f79ddd07>

- Log -----------------------------------------------------------------
commit 82151c42dd2dcb2b5aacadb82f4f0b1ddff252bd
Author: Rafael Garcia-Suarez <[email protected]>
Date:   Mon Jul 27 09:43:16 2009 +0200

    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)
-----------------------------------------------------------------------

Summary of changes:
 embed.fnc |    2 +-
 embed.h   |    4 ----
 2 files changed, 1 insertions(+), 5 deletions(-)

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)

--
Perl5 Master Repository

Reply via email to