remove unused global `scrgv'

p4raw-id: //depot/perl@1128

diff --git a/ObjXSub.h b/ObjXSub.h
index d1a07ca..605ef1c 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 */