blob: 9494afe5f0dfa114de9f301698906b0d0a739fa8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
$NetBSD: patch-ag,v 1.1 2002/12/27 01:27:15 jschauma Exp $
--- pascomp/bapascal.y.orig Thu Dec 26 20:21:20 2002
+++ pascomp/bapascal.y Thu Dec 26 20:22:09 2002
@@ -866,7 +866,6 @@
{ gen_exprval($4); emit1(JZER,$1); free_expr($4); }
| for_header statement
{ emit1(ENDFOR,1+$1); code[$1].y = lc; }
- ;
| cbegin statements CEND
{ if (level == 1) emit(COEND); in_cobegin = 0; }
;
@@ -885,6 +884,7 @@
the_while : WHILE
{ $$ = lc; }
+ ;
while_expr : expr
{ gen_exprval($1); free_expr($1); $$ = lc; emit(JZER);}
|