From 703664f229b1c364f06ceda5f2503d00e2daa04c Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Sun, 14 Jun 1998 01:38:39 +0000 Subject: [PATCH] remove unused global `scrgv' p4raw-id: //depot/perl@1128 --- ObjXSub.h | 2 -- cygwin32/cw32imp.h | 1 - embedvar.h | 3 --- perlvars.h | 1 - 4 files changed, 7 deletions(-) diff --git a/ObjXSub.h b/ObjXSub.h index d1a07ca..605ef1c 100644 --- a/ObjXSub.h +++ b/ObjXSub.h @@ -544,8 +544,6 @@ #define screamfirst pPerl->Perl_screamfirst #undef screamnext #define screamnext pPerl->Perl_screamnext -#undef scrgv -#define scrgv pPerl->Perl_scrgv #undef secondgv #define secondgv pPerl->Perl_secondgv #undef seen_zerolen diff --git a/cygwin32/cw32imp.h b/cygwin32/cw32imp.h index 1fb11d3..885cbb1 100644 --- a/cygwin32/cw32imp.h +++ b/cygwin32/cw32imp.h @@ -165,7 +165,6 @@ #define Perl_scopestack (*__imp_Perl_scopestack) #define Perl_scopestack_ix (*__imp_Perl_scopestack_ix) #define Perl_scopestack_max (*__imp_Perl_scopestack_max) -#define Perl_scrgv (*__imp_Perl_scrgv) #define Perl_sh_path (*__imp_Perl_sh_path) #define Perl_sig_name (*__imp_Perl_sig_name) #define Perl_sig_num (*__imp_Perl_sig_num) diff --git a/embedvar.h b/embedvar.h index 4870703..2e64829 100644 --- a/embedvar.h +++ b/embedvar.h @@ -852,7 +852,6 @@ #define rsfp (Perl_Vars.Grsfp) #define rsfp_filters (Perl_Vars.Grsfp_filters) #define runops (Perl_Vars.Grunops) -#define scrgv (Perl_Vars.Gscrgv) #define sh_path (Perl_Vars.Gsh_path) #define sighandlerp (Perl_Vars.Gsighandlerp) #define specialsv_list (Perl_Vars.Gspecialsv_list) @@ -972,7 +971,6 @@ #define Grsfp rsfp #define Grsfp_filters rsfp_filters #define Grunops runops -#define Gscrgv scrgv #define Gsh_path sh_path #define Gsighandlerp sighandlerp #define Gspecialsv_list specialsv_list @@ -1092,7 +1090,6 @@ #define rsfp Perl_rsfp #define rsfp_filters Perl_rsfp_filters #define runops Perl_runops -#define scrgv Perl_scrgv #define sh_path Perl_sh_path #define sighandlerp Perl_sighandlerp #define specialsv_list Perl_specialsv_list diff --git a/perlvars.h b/perlvars.h index 025f7c4..9bbd615 100644 --- a/perlvars.h +++ b/perlvars.h @@ -107,7 +107,6 @@ PERLVAR(Gmulti_end, I32) /* last line of multi-line string */ PERLVAR(Gmulti_open, I32) /* delimiter of said string */ PERLVAR(Gmulti_close, I32) /* delimiter of said string */ -PERLVAR(Gscrgv, GV *) PERLVAR(Gerror_count, I32) /* how many errors so far, max 10 */ PERLVAR(Gsubline, I32) /* line this subroutine began on */ PERLVAR(Gsubname, SV *) /* name of current subroutine */ -- 2.7.4