From cbe7d4629ce94b9656e1c9cf66264c89a010ecca Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 8 Sep 1998 10:14:06 +0000
Subject: [PATCH]   + textrecbufsize

---
 rtl/inc/text.inc    |  7 +++++--
 rtl/inc/textrec.inc | 33 +++++++++++++++++++--------------
 2 files changed, 24 insertions(+), 16 deletions(-)

diff --git a/rtl/inc/text.inc b/rtl/inc/text.inc
index fab59a7542..d405190681 100644
--- a/rtl/inc/text.inc
+++ b/rtl/inc/text.inc
@@ -83,7 +83,7 @@ Begin
 { only set things that are not zero }
   TextRec(t).Handle:=UnusedHandle;
   TextRec(t).mode:=fmClosed;
-  TextRec(t).BufSize:=128;
+  TextRec(t).BufSize:=TextRecBufSize;
   TextRec(t).Bufptr:=@TextRec(t).Buffer;
   TextRec(t).OpenFunc:=@FileOpenFunc;
   Move(s[1],TextRec(t).Name,Length(s));
@@ -1202,7 +1202,10 @@ end;
 
 {
   $Log$
-  Revision 1.23  1998-08-26 15:33:28  peter
+  Revision 1.24  1998-09-08 10:14:06  peter
+    + textrecbufsize
+
+  Revision 1.23  1998/08/26 15:33:28  peter
     * reset bufpos,bufend in opentext like tp7
 
   Revision 1.22  1998/08/26 11:23:25  pierre
diff --git a/rtl/inc/textrec.inc b/rtl/inc/textrec.inc
index 28c3ee1e18..d2a32819b1 100644
--- a/rtl/inc/textrec.inc
+++ b/rtl/inc/textrec.inc
@@ -32,9 +32,10 @@
 
 
 const
-  TextRecNameLength = 255;
+  TextRecNameLength = 256;
+  TextRecBufSize    = 256;
 type
-  TextBuf = array[0..255] of char;
+  TextBuf = array[0..TextRecBufSize-1] of char;
   TextRec = Packed Record
     Handle,
     Mode,
@@ -48,7 +49,7 @@ type
     flushfunc,
     closefunc : pointer;
     UserData  : array[1..16] of byte;
-    name      : array[0..textrecnamelength] of char;
+    name      : array[0..textrecnamelength-1] of char;
     buffer    : textbuf;
   End;
 
@@ -62,32 +63,33 @@ type
 
 Const
 {$ifdef linux}
-  textrecnamelength = 255;
+  textrecnamelength = 256;
 {$endif}
 {$ifdef Win32}
-    textrecnamelength = 255;
+    textrecnamelength = 256;
 {$endif}
 {$ifdef MACOS}
-    textrecnamelength = 255;
+    textrecnamelength = 256;
 {$endif}
 {$ifdef AMIGA}
-    textrecnamelength = 255;
+    textrecnamelength = 256;
 {$endif}
 {$ifdef OS2}
-    textrecnamelength = 79;
+    textrecnamelength = 80;
 {$endif}
 {$ifdef Go32v1}
-    textrecnamelength = 79;
+    textrecnamelength = 80;
 {$endif Go32v1}
 {$ifdef Go32v2}
-    textrecnamelength = 79;
+    textrecnamelength = 80;
 {$endif Go32v2}
 {$ifdef ATARI}
-    textrecnamelength = 79;
+    textrecnamelength = 80;
 {$endif}
+  TextRecBufSize    = 128;
 
 type
-  textbuf = array[0..127] of char;
+  textbuf = array[0..TextRecBufSize-1] of char;
 
 {$PACKRECORDS 2}
   textrec = record
@@ -126,7 +128,7 @@ type
      flushfunc,
      closefunc : pointer;
      userdata  : array[1..16] of byte;
-     name      : array[0..textrecnamelength] of char;
+     name      : array[0..textrecnamelength-1] of char;
      buffer    : textbuf;
   end;
 
@@ -134,7 +136,10 @@ type
 
 {
   $Log$
-  Revision 1.4  1998-09-04 18:16:15  peter
+  Revision 1.5  1998-09-08 10:14:07  peter
+    + textrecbufsize
+
+  Revision 1.4  1998/09/04 18:16:15  peter
     * uniform filerec/textrec (with recsize:longint and name:0..255)
 
   Revision 1.3  1998/05/21 15:37:19  carl