--- a/tools/PascalUnitSyntaxTree.hs	Thu Apr 19 18:15:03 2012 +0200
+++ b/tools/PascalUnitSyntaxTree.hs	Thu Apr 19 23:36:20 2012 +0400
@@ -35,6 +35,7 @@
     deriving Show
 data Range = Range Identifier
            | RangeFromTo InitExpression InitExpression
+           | RangeInfinite
     deriving Show
 data Initialize = Initialize String
     deriving Show
@@ -102,7 +103,7 @@
     | BTBool
     | BTFloat
     | BTRecord [(String, BaseType)]
-    | BTArray BaseType BaseType
+    | BTArray Range BaseType BaseType
     | BTFunction BaseType
     | BTPointerTo BaseType
     | BTUnresolved String