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

16
utils/ptopu.pp
View File

@ -474,11 +474,12 @@ Function ReadChar (S : PStream) : Char;
Var C : Char; Var C : Char;
begin begin
S^.Read(C,1); repeat
If S^.Status=stReadError then S^.Read(C,1);
ReadChar:=#0 If S^.Status=stReadError then
else C:=#0;
ReadChar:=C; Until C<>#13;
ReadChar:=C;
end; end;
Function EoSLn (S : PStream) : Char; Function EoSLn (S : PStream) : Char;
@ -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