tools/PascalUnitSyntaxTree.hs
changeset 7110 c91d33837b0d
parent 7070 8d4189609e90
child 7317 3534a264b27a
--- 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