diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-12-28 13:35:03 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-12-28 13:35:03 +0000 |
| commit | e92fe45ca3d43fcecf4a99c92c2f56c28510dc64 (patch) | |
| tree | 72219c858541ed7c50a6842f5e58f058f56886a2 /pp.h | |
| parent | 942974c1034df34ca33deb5d386c2329d1af2ba4 (diff) | |
| download | perl-e92fe45ca3d43fcecf4a99c92c2f56c28510dc64.tar.gz | |
PL_amagic_generation is always non-zero, so remove the test for this.
(Since change 17990 added version object overloading)
p4raw-id: //depot/perl@26516
Diffstat (limited to 'pp.h')
| -rw-r--r-- | pp.h | 4 |
1 files changed, 0 insertions, 4 deletions
@@ -398,7 +398,6 @@ and C<PUSHu>. #define AMGf_unary 8 #define tryAMAGICbinW_var(meth_enum,assign,set) STMT_START { \ - if (PL_amagic_generation) { \ SV* const left = *(sp-1); \ SV* const right = *(sp); \ if ((SvAMAGIC(left)||SvAMAGIC(right))) {\ @@ -410,7 +409,6 @@ and C<PUSHu>. SPAGAIN; \ (void)POPs; set(tmpsv); RETURN; } \ } \ - } \ } STMT_END #define tryAMAGICbinW(meth,assign,set) \ @@ -428,7 +426,6 @@ and C<PUSHu>. amagic_call(left,right,CAT2(meth,_amg),AMGf_noright) #define tryAMAGICunW(meth,set,shift,ret) STMT_START { \ - if (PL_amagic_generation) { \ SV* tmpsv; \ SV* arg= sp[shift]; \ if(0) goto am_again; /* shut up unused warning */ \ @@ -437,7 +434,6 @@ and C<PUSHu>. (tmpsv=AMG_CALLun(arg,meth))) {\ SPAGAIN; if (shift) sp += shift; \ set(tmpsv); ret; } \ - } \ } STMT_END #define FORCE_SETs(sv) STMT_START { sv_setsv(TARG, (sv)); SETTARG; } STMT_END |