diff -r 6a1f46c026bf -r 333afe233886 tools/PascalUnitSyntaxTree.hs
--- a/tools/PascalUnitSyntaxTree.hs	Thu May 03 19:00:17 2012 +0200
+++ b/tools/PascalUnitSyntaxTree.hs	Sat May 05 00:01:12 2012 +0400
@@ -105,7 +105,7 @@
     | BTFloat
     | BTRecord [(String, BaseType)]
     | BTArray Range BaseType BaseType
-    | BTFunction BaseType
+    | BTFunction Int BaseType
     | BTFunctionReturn String BaseType
     | BTPointerTo BaseType
     | BTUnresolved String