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

* fixed a bug introduced by my previous update

Browse Source
This commit is contained in:
peter 1998-09-18 12:23:22 +00:00
parent 7d34dfd657
commit 5ae64603db
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/inc/text.inc
View File

@ -760,7 +760,7 @@ Begin
maxp:=@f.Bufptr^[f.BufEnd];
startp:=p;
{ search linefeed }
while (p<=maxp) and (P^<>#10) do
while (p<maxp) and (P^<>#10) do
inc(p);
{ calculate read bytes }
len:=p-startp;
@ -840,7 +840,7 @@ Begin
maxp:=@f.Bufptr^[f.BufEnd];
startp:=p;
{ search linefeed }
while (p<=maxp) and (P^<>#10) do
while (p<maxp) and (P^<>#10) do
inc(p);
{ calculate read bytes }
len:=p-startp;
@ -888,7 +888,7 @@ Begin
maxp:=@f.Bufptr^[f.BufEnd];
startp:=p;
{ search linefeed }
while (p<=maxp) and (P^<>#10) do
while (p<maxp) and (P^<>#10) do
inc(p);
{ calculate read bytes }
len:=p-startp;
@ -940,7 +940,7 @@ Begin
maxp:=@f.Bufptr^[f.BufEnd];
startp:=p;
{ search linefeed }
while (p<=maxp) and (P^<>#10) do
while (p<maxp) and (P^<>#10) do
inc(p);
{ calculate read bytes }
len:=p-startp;
@ -1242,7 +1242,10 @@ end;
{
$Log$
Revision 1.26 1998-09-17 16:34:18 peter
Revision 1.27 1998-09-18 12:23:22 peter
* fixed a bug introduced by my previous update
Revision 1.26 1998/09/17 16:34:18 peter
* new eof,eoln,seekeoln,seekeof
* speed upgrade for read_string
* inoutres 104/105 updates for read_* and write_*