paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 16:09:43 +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

16
utils/ptopu.pp
View File

@ -474,11 +474,12 @@ Function ReadChar (S : PStream) : Char;
Var C : Char;
begin
S^.Read(C,1);
If S^.Status=stReadError then
ReadChar:=#0
else
ReadChar:=C;
repeat
S^.Read(C,1);
If S^.Status=stReadError then
C:=#0;
Until C<>#13;
ReadChar:=C;
end;
Function EoSLn (S : PStream) : Char;
@ -1187,7 +1188,10 @@ end.
{
$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
Revision 1.4 1999/05/03 18:03:15 peter