Добавлен тип REAL

[dsw-obn.git] / oberon.h

diff --git a/oberon.h b/oberon.h
index 53693a79629e8b772c38497cfc0c00046891cbed..189369b9c0cb324564b82aca21b21000a416e944 100644 (file)
--- a/oberon.h
+++ b/oberon.h
@@ -85,7 +85,8 @@ enum
        OBERON_TYPE_PROCEDURE,
        OBERON_TYPE_ARRAY,
        OBERON_TYPE_RECORD,
-       OBERON_TYPE_POINTER
+       OBERON_TYPE_POINTER,
+       OBERON_TYPE_REAL
 };
 
 /*
@@ -231,7 +232,8 @@ struct oberon_context_s
        char c;
        int token;
        char * string;
-       int integer;
+       long integer;
+       double real;
        /*** END SCANER DATA ***/
 
        /*** PARSER DATA ***/
@@ -241,6 +243,7 @@ struct oberon_context_s
 
        oberon_type_t * int_type;
        oberon_type_t * bool_type;
+       oberon_type_t * real_type;
        oberon_type_t * void_type;
        oberon_type_t * void_ptr_type;
        oberon_scope_t * world_scope;
@@ -259,7 +262,8 @@ enum
        MODE_FIELD,
        MODE_DEREF,
        MODE_NIL,
-       MODE_NEW
+       MODE_NEW,
+       MODE_REAL
 };
 
 enum
@@ -296,7 +300,8 @@ struct oberon_item_s
        int read_only;
 
        int mode;
-       int integer;
+       long integer;
+       double real;
        int boolean;
        oberon_object_t * var;