X-Git-Url: http://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=oberon.h;h=ef9ad7f1c891223eb2241ef8d4020e3855a50645;hp=86f95def78e74ccd07b87b82e8bdeefde13601eb;hb=89dfaf94ddbbc501020554232ce026b6584e8045;hpb=3818049ca3679e8fcc432345d41a2d930f7874e4

diff --git a/oberon.h b/oberon.h
index 86f95de..ef9ad7f 100644
--- a/oberon.h
+++ b/oberon.h
@@ -114,6 +114,8 @@ struct oberon_type_s
 	oberon_type_t * base;
 	oberon_object_t * decl;
 
+	oberon_module_t * module;
+
 	int recursive;
 	int initialized;
 	gen_type_t * gen_type;
@@ -289,6 +291,7 @@ struct oberon_item_s
 	int is_item; // == 1
 	oberon_type_t * result;
 	oberon_expr_t * next;
+	int read_only;
 
 	int mode;
 	int integer;
@@ -306,6 +309,7 @@ struct oberon_oper_s
 	int is_item; // == 0
 	oberon_type_t * result;
 	oberon_expr_t * next;
+	int read_only;
 
 	int op;
 	oberon_expr_t * left;
@@ -318,6 +322,7 @@ union oberon_expr_u
 		int is_item;
 		oberon_type_t * result;
 		oberon_expr_t * next;
+		int read_only;
 	};
 
 	oberon_item_t item;