From 0ff51efc278c0cef1dd1d7684f0ec623079d88c7 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Tue, 6 Oct 1998 03:26:54 +0000 Subject: [PATCH] remove spurious unused conflicting globals (PL_yy{v,s}sp) p4raw-id: //depot/perl@1924 --- Makefile.SH | 2 -- Todo-5.005 | 7 ++----- embedvar.h | 4 ---- perlvars.h | 2 -- perly.c | 2 -- toke.c | 2 -- vms/perly_c.vms | 2 -- 7 files changed, 2 insertions(+), 19 deletions(-) diff --git a/Makefile.SH b/Makefile.SH index c51b542..be25e74 100644 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 -- 2.7.4