vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-10-10 10:57:24 +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