This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
It helps to run embed.pl in the correct directory. (not the symlink
authorNicholas Clark <nick@ccl4.org>
Thu, 9 Mar 2006 19:53:53 +0000 (19:53 +0000)
committerNicholas Clark <nick@ccl4.org>
Thu, 9 Mar 2006 19:53:53 +0000 (19:53 +0000)
tree)

p4raw-id: //depot/perl@27446

embed.h
embedvar.h
perlapi.h
proto.h

diff --git a/embed.h b/embed.h
index c2205b1..92b175e 100644 (file)
--- a/embed.h
+++ b/embed.h
 #define skipspace0             S_skipspace0
 #define skipspace1             S_skipspace1
 #define skipspace2             S_skipspace2
+#define start_force            S_start_force
+#define curmad                 S_curmad
 #endif
 #  endif
+#ifdef PERL_CORE
+#define madlex                 Perl_madlex
+#endif
 #endif
 #define ck_anoncode            Perl_ck_anoncode
 #define ck_bitop               Perl_ck_bitop
 #define skipspace0(a)          S_skipspace0(aTHX_ a)
 #define skipspace1(a)          S_skipspace1(aTHX_ a)
 #define skipspace2(a,b)                S_skipspace2(aTHX_ a,b)
+#define start_force(a)         S_start_force(aTHX_ a)
+#define curmad(a,b)            S_curmad(aTHX_ a,b)
 #endif
 #  endif
+#ifdef PERL_CORE
+#define madlex()               Perl_madlex(aTHX)
+#endif
 #endif
 #define ck_anoncode(a)         Perl_ck_anoncode(aTHX_ a)
 #define ck_bitop(a)            Perl_ck_bitop(aTHX_ a)
index 1827ad3..8312a12 100644 (file)
 #define PL_lastfd              (vTHX->Ilastfd)
 #define PL_laststatval         (vTHX->Ilaststatval)
 #define PL_laststype           (vTHX->Ilaststype)
+#define PL_lasttoke            (vTHX->Ilasttoke)
 #define PL_lex_brackets                (vTHX->Ilex_brackets)
 #define PL_lex_brackstack      (vTHX->Ilex_brackstack)
 #define PL_lex_casemods                (vTHX->Ilex_casemods)
 #define PL_Ilastfd             PL_lastfd
 #define PL_Ilaststatval                PL_laststatval
 #define PL_Ilaststype          PL_laststype
+#define PL_Ilasttoke           PL_lasttoke
 #define PL_Ilex_brackets       PL_lex_brackets
 #define PL_Ilex_brackstack     PL_lex_brackstack
 #define PL_Ilex_casemods       PL_lex_casemods
index ae4d932..11a7039 100644 (file)
--- a/perlapi.h
+++ b/perlapi.h
@@ -354,6 +354,8 @@ END_EXTERN_C
 #define PL_laststatval         (*Perl_Ilaststatval_ptr(aTHX))
 #undef  PL_laststype
 #define PL_laststype           (*Perl_Ilaststype_ptr(aTHX))
+#undef  PL_lasttoke
+#define PL_lasttoke            (*Perl_Ilasttoke_ptr(aTHX))
 #undef  PL_lex_brackets
 #define PL_lex_brackets                (*Perl_Ilex_brackets_ptr(aTHX))
 #undef  PL_lex_brackstack
diff --git a/proto.h b/proto.h
index 3be3750..e5819ab 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -4365,7 +4365,10 @@ STATIC char*     S_skipspace1(pTHX_ char *s)
 STATIC char*   S_skipspace2(pTHX_ char *s, SV **sv)
                        __attribute__nonnull__(pTHX_1);
 
+STATIC void    S_start_force(pTHX_ int where);
+STATIC void    S_curmad(pTHX_ char slot, SV *sv);
 #  endif
+PERL_CALLCONV int      Perl_madlex(pTHX);
 #endif
 
 END_EXTERN_C