--- a/tools/PascalUnitSyntaxTree.hs Thu May 03 22:48:02 2012 +0200
+++ b/tools/PascalUnitSyntaxTree.hs Tue May 22 11:19:32 2012 +0200
@@ -61,6 +61,7 @@
| PostfixOp String Expression
| BinOp String Expression Expression
| StringLiteral String
+ | PCharLiteral String
| CharCode String
| HexCharCode String
| NumberLiteral String
@@ -103,10 +104,9 @@
| BTInt
| BTBool
| BTFloat
- | BTRecord [(String, BaseType)]
+ | BTRecord String [(String, BaseType)]
| BTArray Range BaseType BaseType
- | BTFunction BaseType
- | BTFunctionReturn String BaseType
+ | BTFunction Int BaseType
| BTPointerTo BaseType
| BTUnresolved String
| BTSet BaseType