X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Foberon-internals.h;h=ac6b6959ff7799fb2d3a0ed35576fce40dd99ac8;hb=7bb96abf74bcb31d9a3ecb820b0b6565813bf324;hp=a6174c36094ea7e23fb510bfc65036953917c743;hpb=2a0d7e7fbb7dcccc65f98301a0627ee47c755f2f;p=dsw-obn.git

diff --git a/src/oberon-internals.h b/src/oberon-internals.h
index a6174c3..ac6b695 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
@@ -227,7 +229,4 @@ union oberon_expr_t
 	oberon_oper_t oper;
 };
 
-extern void
-oberon_error(oberon_context_t * ctx, const char * fmt, ...);
-
 #endif // OBERON_INTERNALS_H