paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 17:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* remove CR when reading one char less then size

Browse Source
This commit is contained in:
peter 1999-09-10 17:14:43 +00:00
parent c7bd67fb54
commit 62de5cdb72
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/inc/text.inc
View File

@ -749,15 +749,13 @@ Begin
Move(startp^,s[sPos],Len);
inc(sPos,Len);
{ was it a LF? then leave }
if (p<maxp) and (p^=#10) then
if (spos=MaxLen) or
((p<maxp) and (p^=#10)) then
begin
if (spos>0) and (s[spos-1]=#13) then
if (p^=#10) and (spos>0) and (s[spos-1]=#13) then
dec(sPos);
break;
end;
{ Maxlen reached ? }
if spos=MaxLen then
break;
until false;
ReadPCharLen:=spos;
End;
@ -952,7 +950,10 @@ end;
{
$Log$
Revision 1.56 1999-09-10 15:40:33 peter
Revision 1.57 1999-09-10 17:14:43 peter
* remove CR when reading one char less then size
Revision 1.56 1999/09/10 15:40:33 peter
* fixed do_open flags to be > $100, becuase filemode can be upto 255
Revision 1.55 1999/09/08 16:12:24 peter