summaryrefslogtreecommitdiff
path: root/perly.act
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2009-12-01 11:25:37 +0000
committerNicholas Clark <nick@ccl4.org>2009-12-01 11:25:37 +0000
commit235278186f2c0918cc73f3f4c9470f80eeaf8313 (patch)
tree1f58ea14fc6166a71a2b47c6692732860b157716 /perly.act
parent5ca68648d92617d8e0deebbc877c24f91be5ce4d (diff)
downloadperl-235278186f2c0918cc73f3f4c9470f80eeaf8313.tar.gz
make regen_perly following 5ca68648d92617d8.
Diffstat (limited to 'perly.act')
-rw-r--r--perly.act6
1 files changed, 3 insertions, 3 deletions
diff --git a/perly.act b/perly.act
index 6d6801ba61..bf80c54e03 100644
--- a/perly.act
+++ b/perly.act
@@ -252,7 +252,7 @@ case 2:
case 36:
#line 334 "perly.y"
{ OP *innerop;
- PL_parser->copline = (line_t)(ps[(2) - (9)].val.i_tkval);
+ PL_parser->copline = (line_t)IVAL((ps[(2) - (9)].val.i_tkval));
(yyval.opval) = block_end((ps[(4) - (9)].val.ival),
newSTATEOP(0, PVAL((ps[(1) - (9)].val.p_tkval)),
innerop = newWHILEOP(0, 1, (LOOP*)(OP*)NULL,
@@ -267,7 +267,7 @@ case 2:
case 37:
#line 347 "perly.y"
{ OP *innerop;
- PL_parser->copline = (line_t)(ps[(2) - (9)].val.i_tkval);
+ PL_parser->copline = (line_t)IVAL((ps[(2) - (9)].val.i_tkval));
(yyval.opval) = block_end((ps[(4) - (9)].val.ival),
newSTATEOP(0, PVAL((ps[(1) - (9)].val.p_tkval)),
innerop = newWHILEOP(0, 1, (LOOP*)(OP*)NULL,
@@ -362,7 +362,7 @@ case 2:
case 43:
#line 430 "perly.y"
- { PL_parser->copline = (line_t) (ps[(2) - (8)].val.i_tkval);
+ { PL_parser->copline = (line_t) IVAL((ps[(2) - (8)].val.i_tkval));
(yyval.opval) = block_end((ps[(4) - (8)].val.ival),
newSTATEOP(0, PVAL((ps[(1) - (8)].val.p_tkval)),
newGIVENOP((ps[(6) - (8)].val.opval), scope((ps[(8) - (8)].val.opval)),