diff --git a/makedef.pl b/makedef.pl index ae453a64a6f9..41cfecbf955d 100644 --- 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 index 876852b285df..9f0f23030168 100644 --- 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 8ae8829fdb02..2007baefd3e7 100644 --- 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 index 129e13d1700b..760cb5c0d02d 100644 --- a/perlvars.h +++ b/perlvars.h @@ -173,14 +173,6 @@ destruction. (Use of C 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