diff options
author | David Mitchell <davem@iabyn.com> | 2012-12-17 14:53:11 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2012-12-17 14:53:11 +0000 |
commit | cb65b68777357c80fe35f4b74d7ac36c7b471b66 (patch) | |
tree | 840469897e12676bc4a63decac9b832767bb0721 /pp_ctl.c | |
parent | 4800031444245dc3dac9967b46b4860ff3863d32 (diff) | |
download | perl-cb65b68777357c80fe35f4b74d7ac36c7b471b66.tar.gz |
use PERL_UNUSED_VAR rather than PERL_UNUSED_DECL
PERL_UNUSED_DECL doesn't do anything under g++, so doing this silences
some g++ warnings.
Diffstat (limited to 'pp_ctl.c')
-rw-r--r-- | pp_ctl.c | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -2867,11 +2867,14 @@ PP(pp_goto) SAVEFREESV(cv); /* later, undo the 'avoid premature free' hack */ if (CvISXSUB(cv)) { OP* const retop = cx->blk_sub.retop; - SV **newsp PERL_UNUSED_DECL; - I32 gimme PERL_UNUSED_DECL; + SV **newsp; + I32 gimme; const SSize_t items = AvFILLp(arg) + 1; SV** mark; + PERL_UNUSED_VAR(newsp); + PERL_UNUSED_VAR(gimme); + /* put GvAV(defgv) back onto stack */ EXTEND(SP, items+1); /* @_ could have been extended. */ Copy(AvARRAY(arg), SP + 1, items, SV*); |