X-Git-Url: http://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=oberon.h;h=189369b9c0cb324564b82aca21b21000a416e944;hp=53693a79629e8b772c38497cfc0c00046891cbed;hb=ea5cf056abf2bf42e9f328b9c1f2d94ee96bcc4c;hpb=12ae486a18746b042fcc4ebbefc5449d4d3464af

diff --git a/oberon.h b/oberon.h
index 53693a7..189369b 100644
--- 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;