From d277572a6346d5f51f7cc9aef51be155e4b63a19 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 3 Jan 2005 20:58:09 +0000
Subject: Change dXSTARGET to dXSTARG as recommended by Spider Boardman.

p4raw-id: //depot/perl@23735
---
 xsutils.c | 24 +++---------------------
 1 file changed, 3 insertions(+), 21 deletions(-)

diff --git a/xsutils.c b/xsutils.c
index 9844b0e398..f8527a283c 100644
--- a/xsutils.c
+++ b/xsutils.c
@@ -239,11 +239,7 @@ XS(XS_attributes__guess_stash)
 {
     dXSARGS;
     SV *rv, *sv;
-#ifdef dXSTARGET
-    dXSTARGET;
-#else
-    SV * TARG = sv_newmortal();
-#endif
+    dXSTARG;
 
     if (items != 1) {
 usage:
@@ -287,9 +283,7 @@ usage:
 	    sv_setpv(TARG, HvNAME(stash));
     }
 
-#ifdef dXSTARGET
     SvSETMAGIC(TARG);
-#endif
     XSRETURN(1);
 }
 
@@ -297,11 +291,7 @@ XS(XS_attributes_reftype)
 {
     dXSARGS;
     SV *rv, *sv;
-#ifdef dXSTARGET
-    dXSTARGET;
-#else
-    SV * TARG = sv_newmortal();
-#endif
+    dXSTARG;
 
     if (items != 1) {
 usage:
@@ -317,9 +307,7 @@ usage:
 	goto usage;
     sv = SvRV(rv);
     sv_setpv(TARG, sv_reftype(sv, 0));
-#ifdef dXSTARGET
     SvSETMAGIC(TARG);
-#endif
 
     XSRETURN(1);
 }
@@ -327,11 +315,7 @@ usage:
 XS(XS_attributes__warn_reserved)
 {
     dXSARGS;
-#ifdef dXSTARGET
-    dXSTARGET;
-#else
-    SV * TARG = sv_newmortal();
-#endif
+    dXSTARG;
 
     if (items != 0) {
 	Perl_croak(aTHX_
@@ -341,9 +325,7 @@ XS(XS_attributes__warn_reserved)
     EXTEND(SP,1);
     ST(0) = TARG;
     sv_setiv(TARG, ckWARN(WARN_RESERVED) != 0);
-#ifdef dXSTARGET
     SvSETMAGIC(TARG);
-#endif
 
     XSRETURN(1);
 }
-- 
cgit v1.2.1