the dTHR hits

Message-ID: <20001206120603.A24581@firedrake.org>

More, errrm, less dTHRs.

p4raw-id: //depot/perl@8010

diff --git a/bytecode.pl b/bytecode.pl
index 9321604..8d77620 100644 (file)
--- a/bytecode.pl
+++ b/bytecode.pl
@@ -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];

diff --git a/ext/B/B/C.pm b/ext/B/B/C.pm
index f2addfb..dac9417 100644 (file)
--- a/ext/B/B/C.pm
+++ b/ext/B/B/C.pm
@@ -1020,7 +1020,6 @@ sub output_all {
     print <<"EOT";
 static int $init_name()
 {
-       dTHR;
        dTARG;
        djSP;
 EOT