Добавлены функции MIN, MAX и SIZE

[dsw-obn.git] / src / oberon-internals.h

diff --git a/src/oberon-internals.h b/src/oberon-internals.h
index f0a6bed23e96fa8ec6b70d9cafc3a133713485ba..07d8d032a85b8460ffa9a6f1617fb19863306cab 100644 (file)
--- a/src/oberon-internals.h
+++ b/src/oberon-internals.h
@@ -30,6 +30,8 @@ struct oberon_scope_t
        int local;
        oberon_object_t * parent;
        oberon_type_t * parent_type;
+
+       gen_label_t * exit_label;
 };
 
 enum oberon_type_kind
@@ -173,7 +175,8 @@ enum oberon_mode_kind
        MODE_NEW,
        MODE_REAL,
        MODE_CHAR,
-       MODE_STRING
+       MODE_STRING,
+       MODE_TYPE
 };
 
 enum oberon_operator_kind