Given that @optype and @specialsv_name are hard coded tables, it seems

[p5sagit/p5-mst-13.2.git] / intrpvar.h

diff --git a/intrpvar.h b/intrpvar.h
index 5799966..e2c7b19 100644 (file)
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -179,8 +179,6 @@ PERLVAR(Ieval_start,        OP *)
 /* runtime control stuff */
 PERLVARI(Icurcopdb,    COP *,  NULL)
 
-/* statics moved here for shared library purposes */
-PERLVARI(Igensym,      I32,    0)      /* next symbol for getsym() to define */
 PERLVAR(Ifilemode,     int)            /* so nextargv() can preserve mode */
 PERLVAR(Ilastfd,       int)            /* what to preserve mode on */
 PERLVAR(Ioldname,      char *)         /* what to preserve mode on */
@@ -189,6 +187,8 @@ PERLVAR(ICmd,               char *)         /* stuff to free from do_aexec, vfork safe */
 PERLVAR(Ipreambleav,   AV *)
 PERLVAR(Imess_sv,      SV *)
 PERLVAR(Iors_sv,       SV *)           /* output record separator $\ */
+/* statics moved here for shared library purposes */
+PERLVARI(Igensym,      I32,    0)      /* next symbol for getsym() to define */
 PERLVAR(Iin_my,                U16)            /* we're compiling a "my" (or "our") declaration */
 PERLVARI(Ilaststype,   U16,    OP_STAT)
 PERLVARI(Ilaststatval, int,    -1)
@@ -285,20 +285,9 @@ PERLVAR(Isv_undef, SV)
 PERLVAR(Isv_no,                SV)
 PERLVAR(Isv_yes,       SV)
 
-/* What we know when we're in LEX_KNOWNEXT state. */
-#ifdef PERL_MAD
-PERLVARA(Inexttoke,5,  NEXTTOKE)       /* value of next token, if any */
-PERLVAR(Icurforce,     I32)
-#else
-PERLVARA(Inextval,5,   YYSTYPE)        /* value of next token, if any */
-PERLVARA(Inexttype,5,  I32)            /* type of next token */
-PERLVAR(Inexttoke,     I32)
-#endif
-
-PERLVAR(Ilex_state,    U8)             /* next token is determined */
 PERLVAR(Ierror_count,  U8)             /* how many errors so far, max 10 */
 PERLVARI(Icv_has_eval, bool, FALSE) /* PL_compcv includes an entereval or similar */
-/* Space for one more U8 here without increasing the structure size */
+/* Space for two more U8 here without increasing the structure size */
 
 PERLVAR(Imulti_end,    I32)            /* last line of multi-line string */