X-Git-Url: http://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=generator.c;h=b0887aee7c82587beed212c50e56cac179a32b72;hp=d54bbfdb408ad0dc720b6095e7b99f8e878ac4a9;hb=e763da864f7330c2b53029782c6b0d85543eb4d2;hpb=ea5cf056abf2bf42e9f328b9c1f2d94ee96bcc4c

diff --git a/generator.c b/generator.c
index d54bbfd..b0887ae 100644
--- a/generator.c
+++ b/generator.c
@@ -372,6 +372,7 @@ oberon_generator_get_type_size(oberon_context_t * ctx, oberon_type_t * type)
 		case OBERON_TYPE_ARRAY:
 			size = type -> size;
 			type = type -> base;
+			size = (size == 0) ? (1) : (size);
 			size *= oberon_generator_get_type_size(ctx, type);
 			printf("array size: %i\n", size);
 			break;