Исправлены опережающие объявления локальных типов-записей, добавлены модули Oberon...

[dsw-obn.git] / src / backends / jvm / generator-jvm.c

diff --git a/src/backends/jvm/generator-jvm.c b/src/backends/jvm/generator-jvm.c
index 91b82bf8c0465f99626d544d4f787421a15d0e23..26a0b55e829ed8ee735b5e5eecdc9bba3c31c1e4 100644 (file)
--- a/src/backends/jvm/generator-jvm.c
+++ b/src/backends/jvm/generator-jvm.c
@@ -605,7 +605,7 @@ oberon_generator_init_type(oberon_context_t * ctx, oberon_type_t * type)
                t -> postfix = jvm_get_postfix(type);
        }
 
-       if(type -> class == OBERON_TYPE_POINTER ||
+       if((type -> class == OBERON_TYPE_POINTER && type -> base -> class == OBERON_TYPE_RECORD) ||
                type -> class == OBERON_TYPE_PROCEDURE ||
                type -> class == OBERON_TYPE_RECORD ||
                type -> class == OBERON_TYPE_SYSTEM_PTR)