--- a/tools/PascalUnitSyntaxTree.hs	Mon Mar 26 17:56:15 2012 +0400
+++ b/tools/PascalUnitSyntaxTree.hs	Mon Mar 26 23:54:12 2012 +0400
@@ -102,10 +102,11 @@
     | BTInt
     | BTBool
     | BTFloat
-    | BTRecord
+    | BTRecord [(String, BaseType)]
     | BTArray BaseType BaseType
     | BTFunction BaseType
     | BTPointerTo BaseType
+    | BTUnresolved String
     | BTSet BaseType
     | BTEnum [String]
     | BTVoid