changeset 7333 | 520a16a14747 |
parent 7323 | 8490a4f439a5 |
child 7429 | fcf13e40d6b6 |
--- 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