summaryrefslogtreecommitdiff
path: root/xsutils.c
diff options
context:
space:
mode:
Diffstat (limited to 'xsutils.c')
-rw-r--r--xsutils.c24
1 files 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);
}