This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
the dTHR hits
authorMichael Stevens <mstevens@etla.org>
Wed, 6 Dec 2000 12:06:03 +0000 (12:06 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 6 Dec 2000 15:06:05 +0000 (15:06 +0000)
Message-ID: <20001206120603.A24581@firedrake.org>

More, errrm, less dTHRs.

p4raw-id: //depot/perl@8010

bytecode.pl
ext/B/B/C.pm

index 9321604..8d77620 100644 (file)
@@ -106,7 +106,6 @@ bset_obj_store(pTHXo_ struct byteloader_state *bstate, void *obj, I32 ix)
 void
 byterun(pTHXo_ register struct byteloader_state *bstate)
 {
-    dTHR;
     register int insn;
     U32 ix;
     SV *specialsv_list[6];
index f2addfb..dac9417 100644 (file)
@@ -1020,7 +1020,6 @@ sub output_all {
     print <<"EOT";
 static int $init_name()
 {
-       dTHR;
        dTARG;
        djSP;
 EOT