diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2001-01-30 14:20:24 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2001-01-30 14:20:24 +0000 |
| commit | e5e32358e826544b3081ef44129256ad3c11a406 (patch) | |
| tree | 7bcd78ac48a8e4d9a8c331d4c2539b1f083cfb06 /run.c | |
| parent | 4f4d7711b2c76713686b87392c1bfedc79021707 (diff) | |
| download | perl-e5e32358e826544b3081ef44129256ad3c11a406.tar.gz | |
integrate changes#7984,7987,8010 from mainline (gets rid of
dTHR which has been a noop for a while now, except for the
compatibility definition in thread.h)
p4raw-link: @8010 on //depot/perl: 742c86ac159dca57a113457cedc5fead0792eade
p4raw-link: @7987 on //depot/perl: cb7101b12735f0d8d832baf3ba3161eee6849232
p4raw-link: @7984 on //depot/perl: 411caa507cab4ba311ec4000c486ad2592d51146
p4raw-id: //depot/maint-5.6/perl@8606
p4raw-integrated: from //depot/perl@8605 'copy in'
vms/ext/Stdio/Stdio.xs (@3153..) ext/re/re.xs (@3669..) taint.c
(@4606..) vmesa/vmesa.c (@6347..) ext/Devel/DProf/DProf.xs
(@6373..) thread.h (@6748..) ext/ByteLoader/ByteLoader.xs
(@6763..) os2/OS2/REXX/REXX.xs (@6915..) universal.c (@7081..)
os2/os2ish.h (@7128..) djgpp/djgpp.c (@7350..) cygwin/cygwin.c
(@7597..) 'merge in' epoc/epoc.c (@7124..)
p4raw-integrated: from //depot/perl@8010 'copy in' bytecode.pl
(@6763..) ext/B/B/C.pm (@7518..)
p4raw-integrated: from //depot/perl@7987 'copy in' sv.h (@7978..)
p4raw-integrated: from //depot/perl@7984 'copy in' deb.c run.c
(@5540..) ext/ByteLoader/byterun.c (@6763..) pp.h (@7009..)
av.c (@7825..) scope.c (@7858..) 'merge in'
ext/Thread/Thread.xs (@7449..) win32/win32.c (@7797..) mg.c
pp_hot.c util.c (@7816..) perlapi.c pp_ctl.c (@7858..) pp_sys.c
(@7861..) gv.c (@7890..) utf8.c (@7967..) regcomp.c regexec.c
(@7969..) doio.c perl.c perl.h toke.c (@7972..) sv.c (@7974..)
os2/os2.c (@7976..) doop.c pp.c (@7978..) hv.c (@7980..) dump.c
(@7981..) op.c (@7982..)
Diffstat (limited to 'run.c')
| -rw-r--r-- | run.c | 4 |
1 files changed, 0 insertions, 4 deletions
@@ -20,8 +20,6 @@ int Perl_runops_standard(pTHX) { - dTHR; - while ((PL_op = CALL_FPTR(PL_op->op_ppaddr)(aTHX))) { PERL_ASYNC_CHECK(); } @@ -34,7 +32,6 @@ int Perl_runops_debug(pTHX) { #ifdef DEBUGGING - dTHR; if (!PL_op) { if (ckWARN_d(WARN_DEBUGGING)) Perl_warner(aTHX_ WARN_DEBUGGING, "NULL OP IN RUN"); @@ -96,7 +93,6 @@ void Perl_watch(pTHX_ char **addr) { #ifdef DEBUGGING - dTHR; PL_watchaddr = addr; PL_watchok = *addr; PerlIO_printf(Perl_debug_log, "WATCHING, %"UVxf" is currently %"UVxf"\n", |