X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Foberon.c;h=382f4f182b2e98ca1032a7f720cc575e58ae9fc5;hb=2a0d7e7fbb7dcccc65f98301a0627ee47c755f2f;hp=d636fba6b19d253c65a167420a25f21547bef892;hpb=9e6d0f74f74926a9c73d15418c2e9668689061f2;p=dsw-obn.git

diff --git a/src/oberon.c b/src/oberon.c
index d636fba..382f4f1 100644
--- a/src/oberon.c
+++ b/src/oberon.c
@@ -2083,6 +2083,7 @@ oberon_type(oberon_context_t * ctx, oberon_type_t ** type)
 		oberon_type_t * rec;
 		rec = *type;
 		rec -> class = OBERON_TYPE_RECORD;
+		rec -> module = ctx -> mod;
 
 		oberon_scope_t * record_scope;
 		record_scope = oberon_open_scope(ctx);
@@ -2672,6 +2673,8 @@ oberon_parse_module(oberon_context_t * ctx)
 	oberon_assert_token(ctx, SEMICOLON);
 	ctx -> mod -> name = name1;
 
+	oberon_generator_init_module(ctx, ctx -> mod);
+
 	if(ctx -> token == IMPORT)
 	{
 		oberon_import_list(ctx);