Фиксы проверки типов

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

diff --git a/src/oberon-internals.h b/src/oberon-internals.h
index 0a97386fda71b126636f70500fe0643fa3597862..ad2ecc654b1dfc66fd744ddab31a7ef26f05a515 100644 (file)
--- a/src/oberon-internals.h
+++ b/src/oberon-internals.h
@@ -190,7 +190,8 @@ enum oberon_mode_kind
        MODE_STRING,
        MODE_TYPE,
        MODE_SET,
-       MODE_LEN
+       MODE_LEN,
+       MODE_SYSBYTE
 };
 
 enum oberon_operator_kind
@@ -217,6 +218,7 @@ enum oberon_operator_kind
        OP_GEQ,
 
        OP_CAST,
+       OP_HARDCAST,
        OP_IS,
 
        OP_RANGE,
@@ -227,7 +229,9 @@ enum oberon_operator_kind
        OP_COMPLEMENTATION,
        OP_IN,
 
-       OP_ASH
+       OP_ASH,
+       OP_LSH,
+       OP_ROT
 };
 
 struct oberon_item_t