From 62de5cdb72140ee08dd992507f0d765b6c0a05ba Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Fri, 10 Sep 1999 17:14:43 +0000
Subject: [PATCH]   * remove CR when reading one char less then size

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

diff --git a/rtl/inc/text.inc b/rtl/inc/text.inc
index 45fd1ef47f..6bee765f69 100644
--- a/rtl/inc/text.inc
+++ b/rtl/inc/text.inc
@@ -749,15 +749,13 @@ Begin
     Move(startp^,s[sPos],Len);
     inc(sPos,Len);
   { was it a LF? then leave }
-    if (p<maxp) and (p^=#10) then
+    if (spos=MaxLen) or
+       ((p<maxp) and (p^=#10)) then
      begin
-       if (spos>0) and (s[spos-1]=#13) then
+       if (p^=#10) and (spos>0) and (s[spos-1]=#13) then
         dec(sPos);
        break;
      end;
-  { Maxlen reached ? }
-    if spos=MaxLen then
-     break;
   until false;
   ReadPCharLen:=spos;
 End;
@@ -952,7 +950,10 @@ end;
 
 {
   $Log$
-  Revision 1.56  1999-09-10 15:40:33  peter
+  Revision 1.57  1999-09-10 17:14:43  peter
+    * remove CR when reading one char less then size
+
+  Revision 1.56  1999/09/10 15:40:33  peter
     * fixed do_open flags to be > $100, becuase filemode can be upto 255
 
   Revision 1.55  1999/09/08 16:12:24  peter