Поправлены повторные опережающие объявления процедур, добавлено именование генерируем...

[dsw-obn.git] / oberon.c

diff --git a/oberon.c b/oberon.c
index 4eb240b043479840196b87af05eb0fb037ebba10..c3a6f86ce77fc9d57002b7263e394f218b2140ce 100644 (file)
--- a/oberon.c
+++ b/oberon.c
@@ -1540,9 +1540,9 @@ oberon_proc_decl(oberon_context_t * ctx)
                        {
                                oberon_error(ctx, "mult procedure definition");
                        }
-
-                       oberon_compare_signatures(ctx, proc -> type, signature);
                }
+
+               oberon_compare_signatures(ctx, proc -> type, signature);
        }
        else
        {