X-Git-Url: https://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=src%2Foberon.c;h=830844a16aedb87eb17d805361346d80930d0e3a;hp=8b94271a6033d4675f4c8026d316980139a85d18;hb=d4c8198d236035324c6ebf07deb79e73bb062af9;hpb=2990352489faafd75147773896021d7c8ef9e637

diff --git a/src/oberon.c b/src/oberon.c
index 8b94271..830844a 100644
--- a/src/oberon.c
+++ b/src/oberon.c
@@ -1958,11 +1958,6 @@ oberon_simple_expr(oberon_context_t * ctx)
 
 	expr = oberon_term_expr(ctx);
 
-	if(minus)
-	{
-		expr = oberon_make_unary_op(ctx, MINUS, expr);
-	}
-
 	while(ISADDOP(ctx -> token))
 	{
 		int token = ctx -> token;
@@ -1972,6 +1967,11 @@ oberon_simple_expr(oberon_context_t * ctx)
 		expr = oberon_make_bin_op(ctx, token, expr, inter);
 	}
 
+	if(minus)
+	{
+		expr = oberon_make_unary_op(ctx, MINUS, expr);
+	}
+
 	return expr;
 }