From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 9 Mar 2006 19:53:53 +0000 (+0000)
Subject: It helps to run embed.pl in the correct directory. (not the symlink
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=af5683d1a11b86657bb9d3800d54c4d65ca7b5a0;p=p5sagit%2Fp5-mst-13.2.git

It helps to run embed.pl in the correct directory. (not the symlink
tree)

p4raw-id: //depot/perl@27446
---

diff --git a/embed.h b/embed.h
index c2205b1..92b175e 100644
--- a/embed.h
+++ b/embed.h
@@ -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 1827ad3..8312a12 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
diff --git a/perlapi.h b/perlapi.h
index ae4d932..11a7039 100644
--- 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
--- 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