X-Git-Url: https://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=src%2Fbackends%2Fjvm%2Fgenerator-jvm.c;h=26a0b55e829ed8ee735b5e5eecdc9bba3c31c1e4;hp=91b82bf8c0465f99626d544d4f787421a15d0e23;hb=674b8e806962b40992601aca7f1234103a3aefb0;hpb=5d57ba4284b2808e0de685dcf3a7f78e477bc548

diff --git a/src/backends/jvm/generator-jvm.c b/src/backends/jvm/generator-jvm.c
index 91b82bf..26a0b55 100644
--- 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)