tools/PascalUnitSyntaxTree.hs
changeset 7019 333afe233886
parent 6967 1224c6fb36c3
child 7032 5685ca1ec9bf
--- 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