JVM: Исправлено сравнение LongInt, Real и LongReal

[dsw-obn.git] / src / oberon.c

diff --git a/src/oberon.c b/src/oberon.c
index 5816c2b3fb0a96f2076f0e6ff82fbeb2b87058d2..f2c901433aeb49363ef01007ed8336a1e5db1919 100644 (file)
--- 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);
                }