X-Git-Url: http://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=src%2Foberon-internals.h;h=d6c3881d2d54e2cb67f554371479a2c0386153fe;hp=a6174c36094ea7e23fb510bfc65036953917c743;hb=351f950548241d4c4bd799acabbcd98a39b096cc;hpb=ad7420eb4c7aba592f4d52ecea715b309fd82bf7

diff --git a/src/oberon-internals.h b/src/oberon-internals.h
index a6174c3..d6c3881 100644
--- a/src/oberon-internals.h
+++ b/src/oberon-internals.h
@@ -24,8 +24,9 @@ struct oberon_scope_t
 	oberon_object_t * list;
 	oberon_scope_t * up;
 
-	oberon_object_t * parent;
 	int local;
+	oberon_object_t * parent;
+	oberon_type_t * parent_type;
 };
 
 enum
@@ -83,6 +84,7 @@ struct oberon_object_t
 	int initialized;
 
 	oberon_object_t * parent;
+	oberon_type_t * parent_type;
 
 	oberon_scope_t * scope; // for proc
 	int has_return; // for proc