mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-05 22:12:24 +00:00
Sets.Mod ported, works for 64 bit too
This commit is contained in:
parent
b600d11d01
commit
6cd74433a2
1 changed files with 4 additions and 4 deletions
|
|
@ -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.
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue