Добавлена процедура NEW для аллокации обычных массивов

[dsw-obn.git] / oberon.h

diff --git a/oberon.h b/oberon.h
index ef9ad7f1c891223eb2241ef8d4020e3855a50645..4b785453befda47bbdcfe1ccf9c7b9a67ccfd1cc 100644 (file)
--- a/oberon.h
+++ b/oberon.h
@@ -39,6 +39,7 @@ struct gen_context_s
        gcc_jit_result * gcc_result;
        gen_block_t * block;
        unsigned record_count;
+       gcc_jit_lvalue * gcc_alloc;
 };
 
 typedef struct oberon_type_s oberon_type_t;
@@ -257,7 +258,8 @@ enum
        MODE_INDEX,
        MODE_FIELD,
        MODE_DEREF,
-       MODE_NIL
+       MODE_NIL,
+       MODE_NEWARR
 };
 
 enum
@@ -302,6 +304,7 @@ struct oberon_item_s
 
        int num_args;
        oberon_expr_t * args;
+       oberon_type_t * type;
 };
 
 struct oberon_oper_s