diff --git a/src/oberon-internals.h b/src/oberon-internals.h
index 3c6fb853f1a824330eb773fa55a95b7ac0ffd16d..703ba6c5e4b4b6eb88fa9bb3f98d94973fd9e56e 100644 (file)
--- a/src/oberon-internals.h
+++ b/src/oberon-internals.h
{
enum oberon_type_kind class;
int size;
+ oberon_type_t * shorter;
+ oberon_type_t * longer;
int num_decl;
oberon_type_t * base;
MODE_CHAR,
MODE_STRING,
MODE_TYPE,
- MODE_SET
+ MODE_SET,
+ MODE_LEN
};
enum oberon_operator_kind
OP_UNARY_MINUS,
OP_LOGIC_NOT,
OP_ABS,
+ OP_CAP,
+ OP_ENTIER,
OP_ADD,
OP_SUB,
OP_DIFFERENCE,
OP_SYM_DIFFERENCE,
OP_COMPLEMENTATION,
- OP_IN
+ OP_IN,
+
+ OP_ASH
};
struct oberon_item_t