X-Git-Url: http://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=src%2Foberon.c;h=3b8a6b14846e593d9bbaf7b31385993475362a8c;hp=efa6fed9c13a02e3e3d5438a8be29c7121768970;hb=9531d399c60190a8daf625dd99f9c141753bba5e;hpb=d54469555328facc1c3b20e741b0bc3d2061685d

diff --git a/src/oberon.c b/src/oberon.c
index efa6fed..3b8a6b1 100644
--- a/src/oberon.c
+++ b/src/oberon.c
@@ -2940,9 +2940,10 @@ oberon_initialize_type(oberon_context_t * ctx, oberon_type_t * type)
 		oberon_object_t * field = type -> decl;
 		for(int i = 0; i < num_fields; i++)
 		{
-			oberon_initialize_object(ctx, field);
+			//oberon_initialize_object(ctx, field);
+			oberon_initialize_type(ctx, field -> type);
 			field = field -> next;
-		}		
+		}
 
 		oberon_generator_init_type(ctx, type);
 	}