diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2007-05-13 01:17:42 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2007-05-13 01:17:42 +0000 |
| commit | 035e2bcc0535c60f40214acc38bb076a74774dd2 (patch) | |
| tree | a8e128d6e039aff16ac47b17ba197c25598b89cd /perly.y | |
| parent | dde833314f5826ee54c52d1baaca343300ee23fd (diff) | |
| download | perl-035e2bcc0535c60f40214acc38bb076a74774dd2.tar.gz | |
fix some (mostly MAD) compiler warnings
p4raw-id: //depot/perl@31209
Diffstat (limited to 'perly.y')
| -rw-r--r-- | perly.y | 34 |
1 files changed, 18 insertions, 16 deletions
@@ -226,7 +226,7 @@ line : label cond { $$ = newSTATEOP(0, PVAL($1), $2); PL_parser->expect = XSTATE; - DO_MAD( + DO_MAD({ /* sideff might already have a nexstate */ OP* op = ((LISTOP*)$$)->op_first; if (op) { @@ -236,7 +236,7 @@ line : label cond token_getmad($1,op,'L'); token_getmad($3,op,';'); } - ) + }) } ; @@ -537,16 +537,18 @@ mysubrout: MYSUB startsub subname proto subattrlist subbody subrout : SUB startsub subname proto subattrlist subbody { SvREFCNT_inc_simple_void(PL_compcv); #ifdef MAD - OP* o = newSVOP(OP_ANONCODE, 0, - (SV*)newATTRSUB($2, $3, $4, $5, $6)); - $$ = newOP(OP_NULL,0); - op_getmad(o,$$,'&'); - op_getmad($3,$$,'n'); - op_getmad($4,$$,'s'); - op_getmad($5,$$,'a'); - token_getmad($1,$$,'d'); - append_madprops($6->op_madprop, $$, 0); - $6->op_madprop = 0; + { + OP* o = newSVOP(OP_ANONCODE, 0, + (SV*)newATTRSUB($2, $3, $4, $5, $6)); + $$ = newOP(OP_NULL,0); + op_getmad(o,$$,'&'); + op_getmad($3,$$,'n'); + op_getmad($4,$$,'s'); + op_getmad($5,$$,'a'); + token_getmad($1,$$,'d'); + append_madprops($6->op_madprop, $$, 0); + $6->op_madprop = 0; + } #else newATTRSUB($2, $3, $4, $5, $6); $$ = Nullop; @@ -906,14 +908,14 @@ termbinop: term ASSIGNOP term /* $x = $y */ | term DOTDOT term /* $x..$y, $x...$y */ { $$ = newRANGE(IVAL($2), scalar($1), scalar($3)); - DO_MAD( + DO_MAD({ UNOP *op; op = (UNOP*)$$; op = (UNOP*)op->op_first; /* get to flop */ op = (UNOP*)op->op_first; /* get to flip */ op = (UNOP*)op->op_first; /* get to range */ token_getmad($2,(OP*)op,'o'); - ) + }) } | term ANDAND term /* $x && $y */ { $$ = newLOGOP(OP_AND, 0, $1, $3); @@ -1140,14 +1142,14 @@ term : termbinop { $$ = newUNOP(OP_ENTERSUB, OPf_STACKED, append_elem(OP_LIST, $3, scalar($1))); - DO_MAD( + DO_MAD({ OP* op = $$; if (op->op_type == OP_CONST) { /* defeat const fold */ op = (OP*)op->op_madprop->mad_val; } token_getmad($2,op,'('); token_getmad($4,op,')'); - ) + }) } | NOAMP WORD listexpr /* foo(@args) */ { $$ = newUNOP(OP_ENTERSUB, OPf_STACKED, |