This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove PL_appctx and PL_timesbase interpreter variables
authorDagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Sat, 18 Jul 2020 12:26:35 +0000 (13:26 +0100)
committerDagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Mon, 20 Jul 2020 22:28:13 +0000 (23:28 +0100)
These were only ever needed by Symbian.

makedef.pl
perl.c
perl.h
perlvars.h

index ae453a6..41cfecb 100644 (file)
@@ -470,14 +470,6 @@ unless ($define{'USE_DTRACE'}) {
                 );
 }
 
-unless ($define{'PERL_NEED_APPCTX'}) {
-    ++$skip{PL_appctx};
-}
-
-unless ($define{'PERL_NEED_TIMESBASE'}) {
-    ++$skip{PL_timesbase};
-}
-
 unless ($define{'DEBUG_LEAKING_SCALARS'}) {
     ++$skip{PL_sv_serial};
 }
diff --git a/perl.c b/perl.c
index 876852b..9f0f230 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -416,13 +416,6 @@ perl_construct(pTHXx)
     }
 #endif /* HAS_MMAP */
 
-#if defined(HAS_TIMES) && defined(PERL_NEED_TIMESBASE)
-    PL_timesbase.tms_utime  = 0;
-    PL_timesbase.tms_stime  = 0;
-    PL_timesbase.tms_cutime = 0;
-    PL_timesbase.tms_cstime = 0;
-#endif
-
     PL_osname = Perl_savepvn(aTHX_ STR_WITH_LEN(OSNAME));
 
     PL_registered_mros = newHV();
diff --git a/perl.h b/perl.h
index 8ae8829..2007bae 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -4989,12 +4989,6 @@ EXTCONST char PL_bincompat_options[] =
 #  ifdef PERL_MICRO
                             " PERL_MICRO"
 #  endif
-#  ifdef PERL_NEED_APPCTX
-                            " PERL_NEED_APPCTX"
-#  endif
-#  ifdef PERL_NEED_TIMESBASE
-                            " PERL_NEED_TIMESBASE"
-#  endif
 #  ifdef PERL_POISON
                             " PERL_POISON"
 #  endif
index 129e13d..760cb5c 100644 (file)
@@ -173,14 +173,6 @@ destruction. (Use of C<PL_dirty> is discouraged since 5.14.)
 PERLVAR(G, check_mutex,        perl_mutex)     /* Mutex for PL_check */
 #endif
 
-#ifdef PERL_NEED_APPCTX
-PERLVAR(G, appctx,     void*)          /* the application context */
-#endif
-
-#if defined(HAS_TIMES) && defined(PERL_NEED_TIMESBASE)
-PERLVAR(G, timesbase,  struct tms)
-#endif
-
 /* allocate a unique index to every module that calls MY_CXT_INIT */
 
 #ifdef PERL_IMPLICIT_CONTEXT