--- a/tools/PascalUnitSyntaxTree.hs	Mon Mar 26 03:58:03 2012 +0200
+++ b/tools/PascalUnitSyntaxTree.hs	Mon Mar 26 17:56:15 2012 +0400
@@ -31,6 +31,7 @@
     | Set TypeDecl
     | FunctionType TypeDecl [TypeVarDeclaration]
     | DeriveType InitExpression 
+    | VoidType
     | UnknownType
     deriving Show
 data Range = Range Identifier
@@ -101,9 +102,9 @@
     | BTInt
     | BTBool
     | BTFloat
-    | BTRecord [(String, BaseType)]
+    | BTRecord
     | BTArray BaseType BaseType
-    | BTFunction
+    | BTFunction BaseType
     | BTPointerTo BaseType
     | BTSet BaseType
     | BTEnum [String]