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

* fixed small bug with a #13#10 on a line

Browse Source
This commit is contained in:
peter 1998-09-24 23:32:24 +00:00
parent a4630b4f2b
commit d97b8fa00f
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/text.inc
View File

@ -773,7 +773,7 @@ Begin
{ was it a LF? then leave } { was it a LF? then leave }
if p^=#10 then if p^=#10 then
begin begin
if (spos>1) and (s[spos]=#13) then if (spos>0) and (s[spos]=#13) then
dec(sPos); dec(sPos);
break; break;
end; end;
@ -1242,7 +1242,10 @@ end;
{ {
$Log$ $Log$
Revision 1.27 1998-09-18 12:23:22 peter Revision 1.28 1998-09-24 23:32:24 peter
* fixed small bug with a #13#10 on a line
Revision 1.27 1998/09/18 12:23:22 peter
* fixed a bug introduced by my previous update * fixed a bug introduced by my previous update
Revision 1.26 1998/09/17 16:34:18 peter Revision 1.26 1998/09/17 16:34:18 peter