From 411caa507cab4ba311ec4000c486ad2592d51146 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 5 Dec 2000 05:48:16 +0000
Subject: dTHR is a nop in 5.6.0 onwards.  Ergo, it can go.

p4raw-id: //depot/perl@7984
---
 run.c | 4 ----
 1 file changed, 4 deletions(-)

(limited to 'run.c')

diff --git a/run.c b/run.c
index 728b761ff0..ee761d3a0b 100644
--- a/run.c
+++ b/run.c
@@ -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",
-- 
cgit v1.2.1