paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 21:00:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix by Marco van de Voort to enable #13#10

Browse Source
This commit is contained in:
michael 1999-05-31 10:08:36 +00:00
parent b0bdd46ee1
commit 5005e5d9ef
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
utils/ptopu.pp
View File

@ -474,10 +474,11 @@ Function ReadChar (S : PStream) : Char;
Var C : Char; Var C : Char;
begin begin
repeat
S^.Read(C,1); S^.Read(C,1);
If S^.Status=stReadError then If S^.Status=stReadError then
ReadChar:=#0 C:=#0;
else Until C<>#13;
ReadChar:=C; ReadChar:=C;
end; end;
@ -1187,7 +1188,10 @@ end.
{ {
$Log$ $Log$
Revision 1.1 1999-05-12 16:11:39 peter Revision 1.2 1999-05-31 10:08:36 michael
* Fix by Marco van de Voort to enable #13#10
Revision 1.1 1999/05/12 16:11:39 peter
* moved * moved
Revision 1.4 1999/05/03 18:03:15 peter Revision 1.4 1999/05/03 18:03:15 peter