Первые наработки бэкэнда для jvm

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

diff --git a/src/oberon.c b/src/oberon.c
index d636fba6b19d253c65a167420a25f21547bef892..382f4f182b2e98ca1032a7f720cc575e58ae9fc5 100644 (file)
--- 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);