Исправлен цикл REPEAT, исправлено использование HUGEINT как индекса массива

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

diff --git a/src/oberon.c b/src/oberon.c
index f6bd09e68cc85998290d4ed9fd8c94f3b5c2d6d1..83f39cd2cebea39ac30fd54f1125ba11151bb045 100644 (file)
--- a/src/oberon.c
+++ b/src/oberon.c
@@ -3495,7 +3495,7 @@ oberon_statement(oberon_context_t * ctx)
                        oberon_error(ctx, "condition must be boolean");
                }
 
-               oberon_generate_branch(ctx, cond, true, begin);
+               oberon_generate_branch(ctx, cond, false, begin);
        }
        else if(ctx -> token == FOR)
        {