vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 21:32:26 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

ReadString and ReadLine from Files module now set the trailing 0X

Browse source
This commit is contained in:
Ivan Sukin 2016-11-11 22:14:06 +03:00
parent b8694e65ab
commit e4aca9f6f9
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/system/Files.Mod
View file

@ -636,7 +636,8 @@ Especially Length would become fairly complex.
PROCEDURE ReadString* (VAR R: Rider; VAR x: ARRAY OF CHAR); PROCEDURE ReadString* (VAR R: Rider; VAR x: ARRAY OF CHAR);
VAR i: INTEGER; ch: CHAR; VAR i: INTEGER; ch: CHAR;
BEGIN i := 0; BEGIN i := 0;
REPEAT Read(R, ch); x[i] := ch; INC(i) UNTIL ch = 0X REPEAT Read(R, ch); x[i] := ch; INC(i) UNTIL ch = 0X;
x[i] := 0X;
END ReadString; END ReadString;
PROCEDURE ReadLine* (VAR R: Rider; VAR x: ARRAY OF CHAR); PROCEDURE ReadLine* (VAR R: Rider; VAR x: ARRAY OF CHAR);
@ -652,7 +653,8 @@ Especially Length would become fairly complex.
x[i] := ch; x[i] := ch;
INC(i); INC(i);
END; END;
UNTIL b UNTIL b;
x[i] := 0X;
END ReadLine; END ReadLine;
PROCEDURE ReadNum* (VAR R: Rider; VAR x: LONGINT); PROCEDURE ReadNum* (VAR R: Rider; VAR x: LONGINT);