X-Git-Url: https://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=src%2Foberon.c;h=f2c901433aeb49363ef01007ed8336a1e5db1919;hp=5816c2b3fb0a96f2076f0e6ff82fbeb2b87058d2;hb=ffca530414fc4c94c3d95b9bc52f4d0cee3326e9;hpb=51a1ab2543ec5c221d4a3a9ab89968ae7dd39981

diff --git a/src/oberon.c b/src/oberon.c
index 5816c2b..f2c9014 100644
--- a/src/oberon.c
+++ b/src/oberon.c
@@ -2919,9 +2919,9 @@ oberon_statement(oberon_context_t * ctx)
 		oberon_statement_seq(ctx);
 		oberon_generate_goto(ctx, end);
 
+		oberon_generate_label(ctx, els);
 		if(ctx -> token == ELSE)
 		{
-			oberon_generate_label(ctx, els);
 			oberon_assert_token(ctx, ELSE);
 			oberon_statement_seq(ctx);
 		}