vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-05 23:22:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix in ooc Strings modules to prevent index out of range error.

Browse source
This commit is contained in:
Norayr Chilingarian 2022-03-15 17:20:41 +04:00
parent bc8adf76c1
commit 32ec67552f
2 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/library/ooc/oocStrings.Mod
View file

@ -63,7 +63,11 @@ PROCEDURE Length* (stringVal: ARRAY OF CHAR): INTEGER;
i: INTEGER;
BEGIN
i := 0;
WHILE (stringVal[i] # 0X) DO
(* note from noch:
original ooc code below, commented out, leads to
index out of range runtime error
WHILE (stringVal[i] # 0X) DO *)
WHILE ((i < LEN(stringVal)) & (stringVal[i] # 0X)) DO
INC (i)
END;
RETURN i

7
src/library/ooc2/ooc2Strings.Mod
View file

@ -59,7 +59,12 @@ PROCEDURE Length* (stringVal: ARRAY OF CHAR): INTEGER;
i: INTEGER;
BEGIN
i := 0;
WHILE (stringVal[i] # 0X) DO
(* note from noch:
this original ooc code crashes with index out of range
because it doesn't expect a string which has no 0X character
so i had to change it
WHILE (stringVal[i] # 0X) DO *)
WHILE ((i < LEN(stringVal)) & (stringVal[i] # 0X)) DO
INC (i)
END;
RETURN i