From 9a2f05820aa79116c2f6c8c5422306a66d0639e6 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Fri, 29 Nov 2002 16:26:52 +0000
Subject: [PATCH]   * fixed ignorespaces which was broken by the previous
 commit     when a line started with spaces

---
 rtl/inc/text.inc | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/rtl/inc/text.inc b/rtl/inc/text.inc
index 5535e0084b..c9e623c6e6 100644
--- a/rtl/inc/text.inc
+++ b/rtl/inc/text.inc
@@ -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