From 5336380d3e98d40ceb0f5b533b012f0e4cd65847 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 10 Mar 2006 21:54:18 +0000
Subject: Move the 12 static MAD variables from toke.c into the interpeter
 structure.

p4raw-id: //depot/perl@27466
---
 intrpvar.h | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'intrpvar.h')

diff --git a/intrpvar.h b/intrpvar.h
index 6cdf894df5..3a48de54b1 100644
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -301,6 +301,18 @@ PERLVAR(Ilex_casestack,	char *)		/* what kind of case mods in effect */
 #ifdef PERL_MAD
 PERLVARA(Inexttoke,5,	NEXTTOKE)	/* value of next token, if any */
 PERLVAR(Ilasttoke,	I32)
+PERLVAR(Irealtokenstart,I32)
+PERLVAR(Ifaketokens,	I32)
+PERLVAR(Ithismad,	MADPROP *)
+PERLVAR(Ithistoken,	SV *)
+PERLVAR(Ithisopen,	SV *)
+PERLVAR(Ithisstuff,	SV *)
+PERLVAR(Ithisclose,	SV *)
+PERLVAR(Ithiswhite,	SV *)
+PERLVAR(Inextwhite,	SV *)
+PERLVAR(Iskipwhite,	SV *)
+PERLVAR(Iendwhite,	SV *)
+PERLVAR(Icurforce,	I32)
 #else
 PERLVARA(Inextval,5,	YYSTYPE)	/* value of next token, if any */
 PERLVARA(Inexttype,5,	I32)		/* type of next token */
-- 
cgit v1.2.1