paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 14:09:20 +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 if not NextChar(f,s) then
exit; exit;
{ EOF? } { EOF? }
if (TextRec(f).BufPos<TextRec(f).BufEnd) then if (TextRec(f).BufPos>=TextRec(f).BufEnd) then
break; break;
end; end;
IgnoreSpaces:=true; IgnoreSpaces:=true;
@ -1266,7 +1266,11 @@ end;
{ {
$Log$ $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 * fix for tw1896
Revision 1.18 2002/09/07 15:07:46 peter Revision 1.18 2002/09/07 15:07:46 peter