From 91ac611b12f2d80a21699bd6394937459f7b3ec1 Mon Sep 17 00:00:00 2001
From: Norayr Chilingarian <norayr@arnet.am>
Date: Fri, 24 Jan 2014 18:24:26 +0400
Subject: [PATCH] Sets.Mod ported, works for 64 bit too

Former-commit-id: 6cd74433a2b4e7c5d8af8af77bead8264b4e4629
---
 src/lib/v4/Sets.Mod | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/lib/v4/Sets.Mod b/src/lib/v4/Sets.Mod
index 60481ea7..6f9f982f 100644
--- a/src/lib/v4/Sets.Mod
+++ b/src/lib/v4/Sets.Mod
@@ -1,9 +1,9 @@
 MODULE Sets;
 
-IMPORT Texts;
-
-CONST size* = 32;
+IMPORT Texts := CmdlnTexts;
 
+CONST (*size* = 32;*)
+      size* = MAX(SET) + 1;
 
 PROCEDURE Clear*(VAR s: ARRAY OF SET);
   VAR i: INTEGER;
@@ -134,4 +134,4 @@ BEGIN
   Texts.Write(f, "}")
 END Print;
 
-
+END Sets.