diff options
| -rw-r--r-- | embed.h | 10 | ||||
| -rw-r--r-- | embedvar.h | 2 | ||||
| -rw-r--r-- | perlapi.h | 2 | ||||
| -rw-r--r-- | proto.h | 3 |
4 files changed, 17 insertions, 0 deletions
@@ -1788,8 +1788,13 @@ #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 @@ -3931,8 +3936,13 @@ #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) diff --git a/embedvar.h b/embedvar.h index 1827ad3de6..8312a128e4 100644 --- a/embedvar.h +++ b/embedvar.h @@ -278,6 +278,7 @@ #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) @@ -561,6 +562,7 @@ #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 @@ -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 @@ -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 |