This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
make regen_perly following 5ca68648d92617d8.
authorNicholas Clark <nick@ccl4.org>
Tue, 1 Dec 2009 11:25:37 +0000 (11:25 +0000)
committerNicholas Clark <nick@ccl4.org>
Tue, 1 Dec 2009 11:25:37 +0000 (11:25 +0000)
perly.act

index 6d6801b..bf80c54 100644 (file)
--- a/perly.act
+++ b/perly.act
@@ -252,7 +252,7 @@ case 2:
   case 36:
 #line 334 "perly.y"
     { OP *innerop;
   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,
                            (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;
   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,
                            (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"
 
   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)),
                            (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)),