X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Foberon.c;h=89f4be48a38e95db5eb56d4f1dd59f4569f7bb8c;hb=fef434efd26d259ed8a857e28af092df93282880;hp=09a6b8850c988e64986859aa3f2a73e3cd17d2ae;hpb=351f950548241d4c4bd799acabbcd98a39b096cc;p=dsw-obn.git

diff --git a/src/oberon.c b/src/oberon.c
index 09a6b88..89f4be4 100644
--- a/src/oberon.c
+++ b/src/oberon.c
@@ -64,7 +64,7 @@ enum {
 //   UTILS
 // ======================================================================= 
 
-void
+static void
 oberon_error(oberon_context_t * ctx, const char * fmt, ...)
 {
 	va_list ptr;
@@ -2701,6 +2701,8 @@ oberon_parse_module(oberon_context_t * ctx)
 	{
 		oberon_error(ctx, "module name not matched");
 	}
+
+	oberon_generator_fini_module(ctx -> mod);
 }
 
 // =======================================================================