Добавлены открытые массивы

[dsw-obn.git] / generator.c

diff --git a/generator.c b/generator.c
index d54bbfdb408ad0dc720b6095e7b99f8e878ac4a9..b0887aee7c82587beed212c50e56cac179a32b72 100644 (file)
--- 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;