Поправлены повторные опережающие объявления процедур, добавлено именование генерируем...

[dsw-obn.git] / oberon.h

diff --git a/oberon.h b/oberon.h
index 9d17afdb16e76ff0bbfa3e8d2ce30d4b80e46a7b..30c4cbe47e3bf7b847aab2a5ea966f2f484fa31b 100644 (file)
--- a/oberon.h
+++ b/oberon.h
@@ -38,6 +38,7 @@ struct gen_context_s
         gcc_jit_context * gcc_context;
         gcc_jit_result * gcc_result;
        gen_block_t * block;
+       unsigned record_count;
 };
 
 typedef struct oberon_type_s oberon_type_t;
@@ -158,6 +159,7 @@ struct oberon_object_s
        int initialized;
 
        oberon_object_t * parent;
+       oberon_scope_t * scope; // for proc
        int has_return; // for proc