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

* fixed ignorespaces which was broken by the previous commit

Browse Source 
when a line started with spaces
This commit is contained in:
peter 2002-11-29 16:26:52 +00:00
parent bc3943ca4f
commit 9a2f05820a
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/text.inc
View File

@ -783,7 +783,7 @@ begin
if not NextChar(f,s) then
exit;
{ EOF? }
if (TextRec(f).BufPos<TextRec(f).BufEnd) then
if (TextRec(f).BufPos>=TextRec(f).BufEnd) then
break;
end;
IgnoreSpaces:=true;
@ -1266,7 +1266,11 @@ end;
{
$Log$
Revision 1.19 2002-11-29 15:50:27 peter
Revision 1.20 2002-11-29 16:26:52 peter
* fixed ignorespaces which was broken by the previous commit
when a line started with spaces
Revision 1.19 2002/11/29 15:50:27 peter
* fix for tw1896
Revision 1.18 2002/09/07 15:07:46 peter