From 05fbd38ddf3c46a4eef17ff66379724f742f015f Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Sat, 8 Dec 2012 16:48:32 -0800 Subject: [PATCH] pp.h: Remove tryAMAGICunTARGET This macro is unused on CPAN and completely undocumented, so this change should be safe. --- pp.h | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/pp.h b/pp.h index 4d5eeec..ca59246 100644 --- a/pp.h +++ b/pp.h @@ -420,11 +420,7 @@ Does not use C. See also C, C and C. /* No longer used in core. Use AMG_CALLunary instead */ #define AMG_CALLun(sv,meth) AMG_CALLunary(sv, CAT2(meth,_amg)) -#define tryAMAGICunTARGET(meth, shift, jump) \ - tryAMAGICunTARGET_flags(meth, shift, jump, 0) -#define tryAMAGICunTARGETlist(meth, shift, jump) \ - tryAMAGICunTARGET_flags(meth, shift, jump, AMGf_want_list) -#define tryAMAGICunTARGET_flags(meth, shift, jump, flags) \ +#define tryAMAGICunTARGETlist(meth, shift, jump) \ STMT_START { \ dSP; \ SV *tmpsv; \ @@ -432,13 +428,14 @@ Does not use C. See also C, C and C. int gimme = GIMME_V; \ if (SvAMAGIC(arg) && \ (tmpsv = amagic_call(arg, &PL_sv_undef, meth, \ - flags | AMGf_noright | AMGf_unary))) { \ + AMGf_want_list | AMGf_noright \ + |AMGf_unary))) { \ SPAGAIN; \ sp += shift; \ if (gimme == G_VOID) { \ (void)POPs; /* XXX ??? */ \ } \ - else if ((flags & AMGf_want_list) && gimme == G_ARRAY) { \ + else if (gimme == G_ARRAY) { \ int i; \ I32 len; \ assert(SvTYPE(tmpsv) == SVt_PVAV); \ -- 2.7.4