Remove PL_appctx and PL_timesbase interpreter variables

These were only ever needed by Symbian.
Perl · Jul 20, 2020 · fd0d589 · fd0d589
1 parent 566a3e5
commit fd0d589
Show file tree

Hide file tree

Showing 4 changed files with 0 additions and 29 deletions.
diff --git a/makedef.pl b/makedef.pl
@@ -470,14 +470,6 @@ sub readvar {
                 );
 }
 
-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
@@ -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
@@ -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

diff --git a/perlvars.h b/perlvars.h
@@ -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