remove spurious unused conflicting globals (PL_yy{v,s}sp)

p4raw-id: //depot/perl@1924

diff --git a/Makefile.SH b/Makefile.SH
index c51b542..be25e74 100644 (file)
--- a/Makefile.SH
+++ b/Makefile.SH
@@ -671,8 +671,6 @@ $define)
 #define yynerrs    PL_yynerrs\
 #define yyerrflag  PL_yyerrflag\
 #define yychar     PL_yychar\
-#define yyssp      PL_yyssp\
-#define yyvsp      PL_yyvsp\
 #define yyval      PL_yyval\
 #define yylval     PL_yylval'                          \
             -e '/YYSTYPE *yyval;/D'                    \

diff --git a/Todo-5.005 b/Todo-5.005
index 404e5ec..c76d262 100644 (file)
--- a/Todo-5.005
+++ b/Todo-5.005
@@ -19,7 +19,7 @@ Compiler
        from where newASSIGNOP steals the field)
 
 Namespace cleanup
-    symbol-space: "pl_" prefix for all global vars
+    symbol-space: "PL_" prefix for all global vars
                   "Perl_" prefix for all functions
     CPP-space:   restrict what we export from headers
                   stop malloc()/free() pollution unless asked
@@ -43,17 +43,15 @@ Win32 stuff
     rename new headers to be consistent with the rest
     sort out the spawnvp() mess
     work out DLL versioning
-    put perlobject in $ARCHNAME so it can coexist with rest
     get PERL_OBJECT building on non-win32?
     style-check
 
 Miscellaneous
     rename and alter ISA.pm
     magic_setisa should be made to update %FIELDS [???]
-    be generous in accepting foreign line terminations
     make filenames 8.3 friendly, where feasible
     upgrade to newer versions of all independently maintained modules
-    add new modules (Data-Dumper, Storable?)
+    add new modules (Archive::Tar, Compress::Zlib, CPAN::FTP?)
     test it with large parts of CPAN
     fix pod2html to generate relative URLs
 
@@ -65,4 +63,3 @@ Documentation
     rework INSTALL to reflect changes in installation structure
     spot-check all new modules for completeness
     better docs for pack()/unpack()
-    add perlport.pod

diff --git a/embedvar.h b/embedvar.h
index 45a1f8d..10fcb35 100644 (file)
--- a/embedvar.h
+++ b/embedvar.h
@@ -772,9 +772,7 @@
 #define PL_yyerrflag           (PL_Vars.Gyyerrflag)
 #define PL_yylval              (PL_Vars.Gyylval)
 #define PL_yynerrs             (PL_Vars.Gyynerrs)
-#define PL_yyssp               (PL_Vars.Gyyssp)
 #define PL_yyval               (PL_Vars.Gyyval)
-#define PL_yyvsp               (PL_Vars.Gyyvsp)
 
 #else /* !PERL_GLOBAL_STRUCT */
 
@@ -907,9 +905,7 @@
 #define PL_Gyyerrflag          PL_yyerrflag
 #define PL_Gyylval             PL_yylval
 #define PL_Gyynerrs            PL_yynerrs
-#define PL_Gyyssp              PL_yyssp
 #define PL_Gyyval              PL_yyval
-#define PL_Gyyvsp              PL_yyvsp
 
 #ifdef EMBED
 

diff --git a/perlvars.h b/perlvars.h
index 29c8b73..c79c37d 100644 (file)
--- a/perlvars.h
+++ b/perlvars.h
@@ -204,7 +204,5 @@ PERLVAR(Gyydebug,   int)
 PERLVAR(Gyynerrs,      int)
 PERLVAR(Gyyerrflag,    int)
 PERLVAR(Gyychar,       int)
-PERLVAR(Gyyssp,                short*)
-PERLVAR(Gyyvsp,                YYSTYPE*)
 PERLVAR(Gyyval,                YYSTYPE)
 PERLVAR(Gyylval,       YYSTYPE)

diff --git a/perly.c b/perly.c
index eccfdd7..2f9c045 100644 (file)
--- a/perly.c
+++ b/perly.c
@@ -10,8 +10,6 @@ static char yysccsid[] = "@(#)yaccpar 1.8 (Berkeley) 01/20/91";
 #define yynerrs            PL_yynerrs
 #define yyerrflag   PL_yyerrflag
 #define yychar     PL_yychar
-#define yyssp      PL_yyssp
-#define yyvsp      PL_yyvsp
 #define yyval      PL_yyval
 #define yylval     PL_yylval
 

diff --git a/toke.c b/toke.c
index 2518e54..88933de 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -1532,8 +1532,6 @@ filter_gets(register SV *sv, register PerlIO *fp, STRLEN append)
        { "OPERATOR", "TERM", "REF", "STATE", "BLOCK", "TERMBLOCK" };
 #endif
 
-EXT int yychar;                /* last token */
-
 /*
   yylex
 

diff --git a/vms/perly_c.vms b/vms/perly_c.vms
index 1ff29a4..db1f255 100644 (file)
--- a/vms/perly_c.vms
+++ b/vms/perly_c.vms
@@ -11,8 +11,6 @@ static char yysccsid[] = "@(#)yaccpar 1.8 (Berkeley) 01/20/91";
 #define yynerrs            PL_yynerrs
 #define yyerrflag   PL_yyerrflag
 #define yychar     PL_yychar
-#define yyssp      PL_yyssp
-#define yyvsp      PL_yyvsp
 #define yyval      PL_yyval
 #define yylval     PL_yylval