-#line 380 "perly.y"
- { OP *forop;
- PL_copline = (line_t)IVAL((yyvsp[(2) - (12)].i_tkval));
- forop = newSTATEOP(0, PVAL((yyvsp[(1) - (12)].p_tkval)),
- newWHILEOP(0, 1, (LOOP*)Nullop,
- IVAL((yyvsp[(2) - (12)].i_tkval)), scalar((yyvsp[(7) - (12)].opval)),
- (yyvsp[(12) - (12)].opval), (yyvsp[(10) - (12)].opval), (yyvsp[(9) - (12)].ival)));
-#ifdef MAD
- if (!(yyvsp[(5) - (12)].opval))
- (yyvsp[(5) - (12)].opval) = newOP(OP_NULL, 0);
- forop = newUNOP(OP_NULL, 0, append_elem(OP_LINESEQ,
- newSTATEOP(0,
- (((yyvsp[(1) - (12)].p_tkval))->tk_lval.pval
- ?savepv(((yyvsp[(1) - (12)].p_tkval))->tk_lval.pval):Nullch),
- (yyvsp[(5) - (12)].opval)),
- forop));
-
- token_getmad((yyvsp[(2) - (12)].i_tkval),forop,'3');
- token_getmad((yyvsp[(3) - (12)].i_tkval),forop,'(');
- token_getmad((yyvsp[(6) - (12)].i_tkval),forop,'1');
- token_getmad((yyvsp[(8) - (12)].i_tkval),forop,'2');
- token_getmad((yyvsp[(11) - (12)].i_tkval),forop,')');
- token_getmad((yyvsp[(1) - (12)].p_tkval),forop,'L');
-#else
- if ((yyvsp[(5) - (12)].opval)) {
- forop = append_elem(OP_LINESEQ,
- newSTATEOP(0, ((yyvsp[(1) - (12)].p_tkval)?savepv((yyvsp[(1) - (12)].p_tkval)):Nullch),
- (yyvsp[(5) - (12)].opval)),
- forop);
- }
-
-
-#endif
- (yyval.opval) = block_end((yyvsp[(4) - (12)].ival), forop); ;}
+#line 435 "perly.y"
+ {
+ (yyval.opval) = block_end((ps[(3) - (8)].val.ival),
+ newWHILEOP(0, 1, (LOOP*)(OP*)NULL,
+ (ps[(4) - (8)].val.opval), (ps[(7) - (8)].val.opval), (ps[(8) - (8)].val.opval), (ps[(6) - (8)].val.ival)));
+ TOKEN_GETMAD((ps[(1) - (8)].val.i_tkval),(yyval.opval),'W');
+ TOKEN_GETMAD((ps[(2) - (8)].val.i_tkval),(yyval.opval),'(');
+ TOKEN_GETMAD((ps[(5) - (8)].val.i_tkval),(yyval.opval),')');
+ PL_parser->copline = (line_t)IVAL((ps[(1) - (8)].val.i_tkval));
+ ;}