summaryrefslogtreecommitdiff
path: root/ext/ByteLoader
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2000-12-05 05:48:16 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2000-12-05 05:48:16 +0000
commit411caa507cab4ba311ec4000c486ad2592d51146 (patch)
tree1528f3b10157445edf526b3779d7a7733f181fae /ext/ByteLoader
parent8fed10cdafa32ef4e1990378c72a599fc726f7a0 (diff)
downloadperl-411caa507cab4ba311ec4000c486ad2592d51146.tar.gz
dTHR is a nop in 5.6.0 onwards. Ergo, it can go.
p4raw-id: //depot/perl@7984
Diffstat (limited to 'ext/ByteLoader')
-rw-r--r--ext/ByteLoader/ByteLoader.xs1
-rw-r--r--ext/ByteLoader/byterun.c1
2 files changed, 0 insertions, 2 deletions
diff --git a/ext/ByteLoader/ByteLoader.xs b/ext/ByteLoader/ByteLoader.xs
index d3b435199e..05b795ca25 100644
--- a/ext/ByteLoader/ByteLoader.xs
+++ b/ext/ByteLoader/ByteLoader.xs
@@ -77,7 +77,6 @@ bl_read(struct byteloader_fdata *data, char *buf, size_t size, size_t n)
static I32
byteloader_filter(pTHXo_ int idx, SV *buf_sv, int maxlen)
{
- dTHR;
OP *saveroot = PL_main_root;
OP *savestart = PL_main_start;
struct byteloader_state bstate;
diff --git a/ext/ByteLoader/byterun.c b/ext/ByteLoader/byterun.c
index 19f1f6b44c..3e12790fb0 100644
--- a/ext/ByteLoader/byterun.c
+++ b/ext/ByteLoader/byterun.c
@@ -54,7 +54,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];