X-Git-Url: http://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=src%2Foberon.c;h=36736a4bf9384333eb1226c1b6835f202cdabab1;hp=1f33a03c9d82bc084e3ffb1b38777b6750bc9c2f;hb=6d3cfbfd343c0d069896734e32a8c490f27cb7aa;hpb=9f8036eb00032fa7f756113365cb42e05ab262df

diff --git a/src/oberon.c b/src/oberon.c
index 1f33a03..36736a4 100644
--- a/src/oberon.c
+++ b/src/oberon.c
@@ -3644,11 +3644,11 @@ oberon_statement(oberon_context_t * ctx)
 		index = oberon_ident_item(ctx, iname);
 		oberon_assert_token(ctx, ASSIGN);
 		from = oberon_expr(ctx);
-		oberon_assign(ctx, from, index);
 		oberon_assert_token(ctx, TO);
 		bound = oberon_make_temp_var_item(ctx, index -> result);
 		to = oberon_expr(ctx);
-		oberon_assign(ctx, to, bound);
+		oberon_assign(ctx, to, bound); // сначала temp
+		oberon_assign(ctx, from, index); // потом i
 		if(ctx -> token == BY)
 		{
 			oberon_assert_token(ctx, BY);