Change 27446 by [EMAIL PROTECTED] on 2006/03/09 19:53:53
It helps to run embed.pl in the correct directory. (not the symlink
tree)
Affected files ...
... //depot/perl/embed.h#569 edit
... //depot/perl/embedvar.h#218 edit
... //depot/perl/perlapi.h#140 edit
... //depot/perl/proto.h#674 edit
Differences ...
==== //depot/perl/embed.h#569 (text+w) ====
Index: perl/embed.h
--- perl/embed.h#568~27439~ 2006-03-09 07:13:49.000000000 -0800
+++ perl/embed.h 2006-03-09 11:53:53.000000000 -0800
@@ -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)
==== //depot/perl/embedvar.h#218 (text+w) ====
Index: perl/embedvar.h
--- perl/embedvar.h#217~27408~ 2006-03-07 15:24:55.000000000 -0800
+++ perl/embedvar.h 2006-03-09 11:53:53.000000000 -0800
@@ -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
==== //depot/perl/perlapi.h#140 (text+w) ====
Index: perl/perlapi.h
--- perl/perlapi.h#139~27408~ 2006-03-07 15:24:55.000000000 -0800
+++ perl/perlapi.h 2006-03-09 11:53:53.000000000 -0800
@@ -354,6 +354,8 @@
#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
==== //depot/perl/proto.h#674 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#673~27439~ 2006-03-09 07:13:49.000000000 -0800
+++ perl/proto.h 2006-03-09 11:53:53.000000000 -0800
@@ -4365,7 +4365,10 @@
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
End of Patch.
