--- a/tools/PascalUnitSyntaxTree.hs	Mon Apr 30 20:12:43 2012 +0200
+++ b/tools/PascalUnitSyntaxTree.hs	Mon Apr 30 23:35:40 2012 +0400
@@ -106,6 +106,7 @@
     | BTRecord [(String, BaseType)]
     | BTArray Range BaseType BaseType
     | BTFunction BaseType
+    | BTFunctionReturn String BaseType
     | BTPointerTo BaseType
     | BTUnresolved String
     | BTSet BaseType