paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 01:29:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ textrecbufsize

Browse Source
This commit is contained in:
peter 1998-09-08 10:14:06 +00:00
parent ae2f80df1c
commit cbe7d4629c
2 changed files with 24 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/text.inc
View File

@ -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

33
rtl/inc/textrec.inc
View File

@ -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