1 --- pascomp/bapascal.y~ Wed May 14 19:30:18 2003
2 +++ pascomp/bapascal.y Tue Sep 23 14:55:06 2003
4 { gen_exprval($4); emit1(JZER,$1); free_expr($4); }
6 { emit1(ENDFOR,1+$1); code[$1].y = lc; }
8 | cbegin statements CEND
9 { if (level == 1) emit(COEND); in_cobegin = 0; }