From 7ffdb0859b255cd02fa182d85954dbf1d3c2924a Mon Sep 17 00:00:00 2001 From: Norayr Chilingarian Date: Wed, 6 May 2026 20:28:02 +0400 Subject: [PATCH] fixed bug in function description(comment). --- src/runtime/Strings.Mod | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/runtime/Strings.Mod b/src/runtime/Strings.Mod index 89dcaa33..715c99b5 100644 --- a/src/runtime/Strings.Mod +++ b/src/runtime/Strings.Mod @@ -10,7 +10,7 @@ Strings.Insert(src, pos, dst) to hold the result of the operation, the result is truncated so that dst is always terminated with a 0X. Strings.Append(s, dst) - has the same effect as Insert(s, Length(s), dst). + has the same effect as Insert(s, Length(dst), dst). Strings.Delete(s, pos, n) deletes n characters from s starting at position pos (0 <= pos < Length(s)). If n > Length(s) - pos, the new length of s is pos. @@ -160,14 +160,14 @@ BEGIN WHILE (s[p] = " ") OR (s[p] = "0") DO INC(p) END; IF s[p] = "-" THEN neg := TRUE; INC(p) ELSE neg := FALSE END; WHILE (s[p] = " ") OR (s[p] = "0") DO INC(p) END; - + y := 0; WHILE ("0" <= s[p]) & (s[p] <= "9") DO y := y * 10 + (ORD(s[p]) - 30H); INC(p); END; IF s[p] = "." THEN - INC(p); g := 1; + INC(p); g := 1; WHILE ("0" <= s[p]) & (s[p] <= "9") DO g := g / 10; y := y + g * (ORD(s[p]) - 30H); INC(p); @@ -195,14 +195,14 @@ BEGIN WHILE (s[p] = " ") OR (s[p] = "0") DO INC(p) END; IF s[p] = "-" THEN neg := TRUE; INC(p) ELSE neg := FALSE END; WHILE (s[p] = " ") OR (s[p] = "0") DO INC(p) END; - + y := 0; WHILE ("0" <= s[p]) & (s[p] <= "9") DO y := y * 10 + (ORD(s[p]) - 30H); INC(p); END; IF s[p] = "." THEN - INC(p); g := 1; + INC(p); g := 1; WHILE ("0" <= s[p]) & (s[p] <= "9") DO g := g / 10; y := y + g * (ORD(s[p]) - 30H); INC(p);