X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=oberon.c;h=98928fbe7c4e1629b2519b0f505e54fb921ef63b;hb=d465a8b1fddbbabcf4f9739e80e9e82dc945028e;hp=0aa8d45bf1304f6a95fe211480359d30afa7c9ef;hpb=90ad7d921e60c24b11bc08cd173c0e1c80f9b06d;p=dsw-obn.git

diff --git a/oberon.c b/oberon.c
index 0aa8d45..98928fb 100644
--- a/oberon.c
+++ b/oberon.c
@@ -520,9 +520,16 @@ oberon_factor(oberon_context_t * ctx)
 			}
 			else
 			{
-				oberon_error(ctx, "invalid desinator");
+				oberon_error(ctx, "invalid designator");
 			}
+
 			expr -> item.var = var;
+			if(ctx -> token == LPAREN)
+			{
+				oberon_assert_token(ctx, LPAREN);
+				expr -> item.mode = MODE_CALL;
+				oberon_assert_token(ctx, RPAREN);
+			}
 			break;
 		case INTEGER:
 			expr = oberon_new_item(MODE_INTEGER, ctx -> int_type);