diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-08-29 03:35:18 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-08-29 03:35:18 +0000 |
| commit | fc0dc3b334ed07492841d4d27f3f4100c92588d2 (patch) | |
| tree | 29f740a42534c1315c9b9f49ca26c9ceb21ba860 /pp_ctl.c | |
| parent | 0ae6046c5548636c0d642d76d3c8222375a744dd (diff) | |
| download | perl-fc0dc3b334ed07492841d4d27f3f4100c92588d2.tar.gz | |
deadcode removal
p4raw-id: //depot/perl@4034
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 8 |
1 files changed, 1 insertions, 7 deletions
@@ -26,12 +26,6 @@ #define DOCATCH(o) ((CATCH_GET == TRUE) ? docatch(o) : (o)) -#ifdef PERL_OBJECT -#define CALLOP this->*PL_op -#else -#define CALLOP *PL_op -#endif - static I32 sortcv(pTHXo_ SV *a, SV *b); static I32 sv_ncmp(pTHXo_ SV *a, SV *b); static I32 sv_i_ncmp(pTHXo_ SV *a, SV *b); @@ -2304,7 +2298,7 @@ PP(pp_goto) if (PL_op->op_type == OP_ENTERITER) DIE(aTHX_ "Can't \"goto\" into the middle of a foreach loop", label); - (CALLOP->op_ppaddr)(aTHX); + CALL_FPTR(PL_op->op_ppaddr)(aTHX); } PL_op = oldop; } |