This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
remove obsolete PL_apiversion
authorDaniel Dragan <bulk88@hotmail.com>
Fri, 7 Nov 2014 06:15:18 +0000 (01:15 -0500)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 7 Nov 2014 16:12:06 +0000 (08:12 -0800)
Commit 0e42d607f5 made PL_apiversion unused. Remove it to save memory in
interp struct.

embedvar.h
intrpvar.h
perl.c
sv.c

index 2659d02..94b7a00 100644 (file)
@@ -70,7 +70,6 @@
 #define PL_XPosix_ptrs         (vTHX->IXPosix_ptrs)
 #define PL_Xpv                 (vTHX->IXpv)
 #define PL_an                  (vTHX->Ian)
-#define PL_apiversion          (vTHX->Iapiversion)
 #define PL_argvgv              (vTHX->Iargvgv)
 #define PL_argvout_stack       (vTHX->Iargvout_stack)
 #define PL_argvoutgv           (vTHX->Iargvoutgv)
index 4f61a25..f5d8020 100644 (file)
@@ -318,7 +318,6 @@ PERLVAR(I, warnhook,        SV *)
 
 /* switches */
 PERLVAR(I, patchlevel, SV *)
-PERLVAR(I, apiversion, SV *)
 PERLVAR(I, localpatches, const char * const *)
 PERLVARI(I, splitstr,  const char *, " ")
 
diff --git a/perl.c b/perl.c
index 71ba0ff..d61436a 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -325,7 +325,6 @@ perl_construct(pTHXx)
     PL_stashcache = newHV();
 
     PL_patchlevel = newSVpvs("v" PERL_VERSION_STRING);
-    PL_apiversion = newSVpvs("v" PERL_API_VERSION_STRING);
 
 #ifdef HAS_MMAP
     if (!PL_mmap_page_size) {
@@ -906,7 +905,6 @@ perl_destruct(pTHXx)
     Safefree(PL_inplace);
     PL_inplace = NULL;
     SvREFCNT_dec(PL_patchlevel);
-    SvREFCNT_dec(PL_apiversion);
 
     if (PL_e_script) {
        SvREFCNT_dec(PL_e_script);
diff --git a/sv.c b/sv.c
index 06e06dc..6b56726 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -14608,7 +14608,6 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
 
     /* switches */
     PL_patchlevel      = sv_dup_inc(proto_perl->Ipatchlevel, param);
-    PL_apiversion      = sv_dup_inc(proto_perl->Iapiversion, param);
     PL_inplace         = SAVEPV(proto_perl->Iinplace);
     PL_e_script                = sv_dup_inc(proto_perl->Ie_script, param);