24 lines
550 B
Plaintext
24 lines
550 B
Plaintext
--- t.t.old 2018-03-22 08:59:31.000000000 +0100
|
|
+++ t.t 2018-03-22 09:01:22.000000000 +0100
|
|
@@ -1389,15 +1389,18 @@
|
|
else
|
|
expect(%1, "statement");
|
|
|
|
-compound() do var oyp, olp, onp;
|
|
+compound() do var oyp, olp, onp, msg;
|
|
+ msg := "unexpected end of compound statement";
|
|
T := scan();
|
|
oyp := Yp;
|
|
onp := Np;
|
|
olp := Lp;
|
|
while (T = KVAR \/ T = KCONST \/ T = KSTRUCT)
|
|
declaration(0);
|
|
- while (T \= KEND)
|
|
+ while (T \= KEND) do
|
|
+ if (T = ENDFILE) aw(msg, 0);
|
|
stmt();
|
|
+ end
|
|
T := scan();
|
|
if (olp-Lp \= 0)
|
|
gen(CG_DEALLOC, olp-Lp);
|