diff -r 0e50456d652c -r 520a16a14747 tools/PascalUnitSyntaxTree.hs
--- a/tools/PascalUnitSyntaxTree.hs	Sat Jun 30 00:34:51 2012 +0400
+++ b/tools/PascalUnitSyntaxTree.hs	Sat Jun 30 01:09:31 2012 +0400
@@ -107,7 +107,7 @@
     | BTFloat
     | BTRecord String [(String, BaseType)]
     | BTArray Range BaseType BaseType
-    | BTFunction Int BaseType
+    | BTFunction Bool Int BaseType
     | BTPointerTo BaseType
     | BTUnresolved String
     | BTSet BaseType