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

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

diff --git a/src/oberon-internals.h b/src/oberon-internals.h
index 7a776d695502bec8b53225c031e31f808d207841..5dd3582576af7e07980552a59f3763025a098fa8 100644 (file)
--- a/src/oberon-internals.h
+++ b/src/oberon-internals.h
@@ -175,7 +175,8 @@ enum oberon_mode_kind
        MODE_NEW,
        MODE_REAL,
        MODE_CHAR,
-       MODE_STRING
+       MODE_STRING,
+       MODE_TYPE
 };
 
 enum oberon_operator_kind
@@ -203,7 +204,8 @@ enum oberon_operator_kind
        OP_GRT,
        OP_GEQ,
 
-       OP_CAST
+       OP_CAST,
+       OP_IS
 };
 
 struct oberon_item_t