From 4f5f5b0586ae4cf3d1af0d5506454c39c77e049f Mon Sep 17 00:00:00 2001
From: David Mitchell <davem@iabyn.com>
Date: Mon, 3 Jan 2011 12:54:21 +0000
Subject: simplify tryAMAGICunTARGET

Expecting the targ in sp[-1] rather than sp[0] is accomplished
cleanly using dATARGET.
---
 pp.h | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/pp.h b/pp.h
index 4d0395314a..d60666af6d 100644
--- a/pp.h
+++ b/pp.h
@@ -433,10 +433,7 @@ Does not use C<TARG>.  See also C<XPUSHu>, C<mPUSHu> and C<PUSHu>.
 
 #define tryAMAGICunTARGET(meth, shift, jump)				\
     STMT_START {						\
-	dSP;							\
-	sp--; /* get TARGET from below PL_stack_sp */		\
-	{							\
-	    dTARGETSTACKED;					\
+	    dATARGET;						\
 	    dSP;						\
 	    SV *tmpsv;						\
 	    SV *arg= sp[shift];					\
@@ -456,7 +453,6 @@ Does not use C<TARG>.  See also C<XPUSHu>, C<mPUSHu> and C<PUSHu>.
 		}						\
 		return NORMAL;					\
 	    }							\
-	}							\
     } STMT_END
 
 /* This is no longer used anywhere in the core. You might wish to consider
-- 
cgit v1.2.1