diff options
| author | Stas Bekman <stas@stason.org> | 2005-01-12 11:32:42 -0500 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2005-01-13 11:28:31 +0000 |
| commit | 142630c421426ba21e7cdcbb5134d1beb565440f (patch) | |
| tree | 0e0eaa4cca04d872f8bd3fb81576f995193e3c61 /perl.c | |
| parent | 679f4c1f843301b32867fd4e42cf54109af3830f (diff) | |
| download | perl-142630c421426ba21e7cdcbb5134d1beb565440f.tar.gz | |
Re: killing USE_5005THREADS in blead?
Message-ID: <41E5977A.3060306@stason.org>
p4raw-id: //depot/perl@23786
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 12 |
1 files changed, 0 insertions, 12 deletions
@@ -181,9 +181,6 @@ PerlInterpreter * perl_alloc(void) { PerlInterpreter *my_perl; -#ifdef USE_5005THREADS - dTHX; -#endif /* New() needs interpreter, so call malloc() instead */ my_perl = (PerlInterpreter*)PerlMem_malloc(sizeof(PerlInterpreter)); @@ -353,9 +350,6 @@ perl_destruct(pTHXx) { volatile int destruct_level; /* 0=none, 1=full, 2=full with checks */ HV *hv; -#ifdef USE_5005THREADS - dTHX; -#endif /* USE_5005THREADS */ /* wait for all pseudo-forked children to finish */ PERL_WAIT_FOR_CHILDREN; @@ -1021,9 +1015,6 @@ perl_parse(pTHXx_ XSINIT_t xsinit, int argc, char **argv, char **env) I32 oldscope; int ret; dJMPENV; -#ifdef USE_5005THREADS - dTHX; -#endif #ifdef SETUID_SCRIPTS_ARE_SECURE_NOW #ifdef IAMSUID @@ -1718,9 +1709,6 @@ perl_run(pTHXx) I32 oldscope; int ret = 0; dJMPENV; -#ifdef USE_5005THREADS - dTHX; -#endif oldscope = PL_scopestack_ix; #ifdef VMS |