diff options
| author | David Mitchell <davem@iabyn.com> | 2011-01-03 12:54:21 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2011-01-03 12:54:21 +0000 |
| commit | 4f5f5b0586ae4cf3d1af0d5506454c39c77e049f (patch) | |
| tree | 16a35eb75b4588ce4f9bf8ddafa8b49eb5daf425 /pp.h | |
| parent | 7f1e438c9c75cea0bbb94819e02b8057fe1855c1 (diff) | |
| download | perl-4f5f5b0586ae4cf3d1af0d5506454c39c77e049f.tar.gz | |
simplify tryAMAGICunTARGET
Expecting the targ in sp[-1] rather than sp[0] is accomplished
cleanly using dATARGET.
Diffstat (limited to 'pp.h')
| -rw-r--r-- | pp.h | 6 |
1 files changed, 1 insertions, 5 deletions
@@ -433,10 +433,7 @@ Does not use C<TARG>. See also C<XPUSHu>, C<mPUSHu> and C<PUSHu>. #define tryAMAGICunTARGET(meth, shift, jump) \ STMT_START { \ - dSP; \ - sp--; /* get TARGET from below PL_stack_sp */ \ - { \ - dTARGETSTACKED; \ + dATARGET; \ dSP; \ SV *tmpsv; \ SV *arg= sp[shift]; \ @@ -456,7 +453,6 @@ Does not use C<TARG>. See also C<XPUSHu>, C<mPUSHu> and C<PUSHu>. } \ return NORMAL; \ } \ - } \ } STMT_END /* This is no longer used anywhere in the core. You might wish to consider |