Добавлен оператор IS

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

diff --git a/src/oberon-internals.h b/src/oberon-internals.h
index f0a6bed23e96fa8ec6b70d9cafc3a133713485ba..5dd3582576af7e07980552a59f3763025a098fa8 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
@@ -201,7 +204,8 @@ enum oberon_operator_kind
        OP_GRT,
        OP_GEQ,
 
-       OP_CAST
+       OP_CAST,
+       OP_IS
 };
 
 struct oberon_item_t