X-Git-Url: https://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=src%2Foberon.c;h=cd7e97a18f3cb5531e77bd28d1253a62cdc92b85;hp=1d9e670e82fcc1c2e197b7bcbeea9b91cc935782;hb=b32ba7cd2d9c7ddd96e5504bd7bc7552228167e3;hpb=82dcffa336ec4c35e6212ec87482f77fda014978

diff --git a/src/oberon.c b/src/oberon.c
index 1d9e670..cd7e97a 100644
--- a/src/oberon.c
+++ b/src/oberon.c
@@ -2447,6 +2447,12 @@ oberon_proc_decl(oberon_context_t * ctx)
 	char * name;
 	int export;
 	int read_only;
+
+	if(ctx -> token == STAR)
+	{
+		oberon_assert_token(ctx, STAR);
+	}
+
 	name = oberon_assert_ident(ctx);
 	oberon_def(ctx, &export, &read_only);