vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-07-10 01:53:32 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixed bug in function description(comment).

Browse source
This commit is contained in:
Norayr Chilingarian 2026-05-06 20:28:02 +04:00
parent 65baeb77a9
commit 7ffdb0859b
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/runtime/Strings.Mod
View file

@ -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 to hold the result of the operation, the result is truncated so that dst is always
terminated with a 0X. terminated with a 0X.
Strings.Append(s, dst) 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) Strings.Delete(s, pos, n)
deletes n characters from s starting at position pos (0 <= pos < Length(s)). 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. 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; WHILE (s[p] = " ") OR (s[p] = "0") DO INC(p) END;
IF s[p] = "-" THEN neg := TRUE; INC(p) ELSE neg := FALSE END; IF s[p] = "-" THEN neg := TRUE; INC(p) ELSE neg := FALSE END;
WHILE (s[p] = " ") OR (s[p] = "0") DO INC(p) END; WHILE (s[p] = " ") OR (s[p] = "0") DO INC(p) END;
y := 0; y := 0;
WHILE ("0" <= s[p]) & (s[p] <= "9") DO WHILE ("0" <= s[p]) & (s[p] <= "9") DO
y := y * 10 + (ORD(s[p]) - 30H); y := y * 10 + (ORD(s[p]) - 30H);
INC(p); INC(p);
END; END;
IF s[p] = "." THEN IF s[p] = "." THEN
INC(p); g := 1; INC(p); g := 1;
WHILE ("0" <= s[p]) & (s[p] <= "9") DO WHILE ("0" <= s[p]) & (s[p] <= "9") DO
g := g / 10; y := y + g * (ORD(s[p]) - 30H); g := g / 10; y := y + g * (ORD(s[p]) - 30H);
INC(p); INC(p);
@ -195,14 +195,14 @@ BEGIN
WHILE (s[p] = " ") OR (s[p] = "0") DO INC(p) END; WHILE (s[p] = " ") OR (s[p] = "0") DO INC(p) END;
IF s[p] = "-" THEN neg := TRUE; INC(p) ELSE neg := FALSE END; IF s[p] = "-" THEN neg := TRUE; INC(p) ELSE neg := FALSE END;
WHILE (s[p] = " ") OR (s[p] = "0") DO INC(p) END; WHILE (s[p] = " ") OR (s[p] = "0") DO INC(p) END;
y := 0; y := 0;
WHILE ("0" <= s[p]) & (s[p] <= "9") DO WHILE ("0" <= s[p]) & (s[p] <= "9") DO
y := y * 10 + (ORD(s[p]) - 30H); y := y * 10 + (ORD(s[p]) - 30H);
INC(p); INC(p);
END; END;
IF s[p] = "." THEN IF s[p] = "." THEN
INC(p); g := 1; INC(p); g := 1;
WHILE ("0" <= s[p]) & (s[p] <= "9") DO WHILE ("0" <= s[p]) & (s[p] <= "9") DO
g := g / 10; y := y + g * (ORD(s[p]) - 30H); g := g / 10; y := y + g * (ORD(s[p]) - 30H);
INC(p); INC(p);