Добавлена функция SYSTEM.LSH

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

diff --git a/src/oberon-internals.h b/src/oberon-internals.h
index 0a97386fda71b126636f70500fe0643fa3597862..b81eb95fea111b6b1d9231ca92f176ba90069f7a 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
@@ -227,7 +228,8 @@ enum oberon_operator_kind
        OP_COMPLEMENTATION,
        OP_IN,
 
-       OP_ASH
+       OP_ASH,
+       OP_LSH
 };
 
 struct oberon_item_t