diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-11-02 15:38:31 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-11-02 15:38:31 +0000 |
| commit | 9f8bf29815397e529be92022542fb51ea86d3fd5 (patch) | |
| tree | 7e2c01c89710f5daabe869b239901feceb4a5b61 /pp.h | |
| parent | 9f39b4f19b0088633249b846695908092673b0e0 (diff) | |
| download | perl-9f8bf29815397e529be92022542fb51ea86d3fd5.tar.gz | |
Expand AMG_CALLun_var() into all its users, and eliminate it.
Aside from the 2 callers where it can be replaced with AMG_CALLun().
AMG_CALLun_var was only used in core.
Diffstat (limited to 'pp.h')
| -rw-r--r-- | pp.h | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -425,10 +425,8 @@ Does not use C<TARG>. See also C<XPUSHu>, C<mPUSHu> and C<PUSHu>. return NORMAL; \ } STMT_END -#define AMG_CALLun_var(sv,meth_enum) amagic_call(sv,&PL_sv_undef, \ - meth_enum,AMGf_noright | AMGf_unary) -#define AMG_CALLun(sv,meth) AMG_CALLun_var(sv,CAT2(meth,_amg)) - +#define AMG_CALLun(sv,meth) \ + amagic_call(sv,&PL_sv_undef, CAT2(meth,_amg), AMGf_noright | AMGf_unary) #define tryAMAGICunTARGET(meth, shift) \ STMT_START { \ @@ -440,7 +438,8 @@ Does not use C<TARG>. See also C<XPUSHu>, C<mPUSHu> and C<PUSHu>. SV *tmpsv; \ SV *arg= sp[shift]; \ if (SvAMAGIC(arg) && \ - (tmpsv=AMG_CALLun_var(arg,CAT2(meth,_amg)))) { \ + (tmpsv = amagic_call(arg, &PL_sv_undef, CAT2(meth,_amg), \ + AMGf_noright | AMGf_unary))) { \ SPAGAIN; \ sp += shift; \ sv_setsv(TARG, tmpsv); \ @@ -456,7 +455,8 @@ Does not use C<TARG>. See also C<XPUSHu>, C<mPUSHu> and C<PUSHu>. SV *arg = *sp; \ am_again: \ if (SvAMAGIC(arg) && \ - (tmpsv=AMG_CALLun_var(arg,(meth_enum)))) { \ + (tmpsv = amagic_call(arg, &PL_sv_undef, meth_enum, \ + AMGf_noright | AMGf_unary))) { \ SPAGAIN; \ sv = tmpsv; \ if (!SvROK(tmpsv)) \ |