Добавлен порт COCO/R

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

diff --git a/src/oberon.c b/src/oberon.c
index 1d9e670e82fcc1c2e197b7bcbeea9b91cc935782..cd7e97a18f3cb5531e77bd28d1253a62cdc92b85 100644 (file)
--- 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);