From: Michael Stevens <mstevens@etla.org>
Date: Wed, 6 Dec 2000 12:06:03 +0000 (+0000)
Subject: the dTHR hits
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=742c86ac159dca57a113457cedc5fead0792eade;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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