paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-07 05:39:33 +01: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 } { only set things that are not zero }
TextRec(t).Handle:=UnusedHandle; TextRec(t).Handle:=UnusedHandle;
TextRec(t).mode:=fmClosed; TextRec(t).mode:=fmClosed;
TextRec(t).BufSize:=128; TextRec(t).BufSize:=TextRecBufSize;
TextRec(t).Bufptr:=@TextRec(t).Buffer; TextRec(t).Bufptr:=@TextRec(t).Buffer;
TextRec(t).OpenFunc:=@FileOpenFunc; TextRec(t).OpenFunc:=@FileOpenFunc;
Move(s[1],TextRec(t).Name,Length(s)); Move(s[1],TextRec(t).Name,Length(s));
@ -1202,7 +1202,10 @@ end;
{ {
$Log$ $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 * reset bufpos,bufend in opentext like tp7
Revision 1.22 1998/08/26 11:23:25 pierre Revision 1.22 1998/08/26 11:23:25 pierre

33
rtl/inc/textrec.inc
View File

@ -32,9 +32,10 @@
const const
TextRecNameLength = 255; TextRecNameLength = 256;
TextRecBufSize = 256;
type type
TextBuf = array[0..255] of char; TextBuf = array[0..TextRecBufSize-1] of char;
TextRec = Packed Record TextRec = Packed Record
Handle, Handle,
Mode, Mode,
@ -48,7 +49,7 @@ type
flushfunc, flushfunc,
closefunc : pointer; closefunc : pointer;
UserData : array[1..16] of byte; UserData : array[1..16] of byte;
name : array[0..textrecnamelength] of char; name : array[0..textrecnamelength-1] of char;
buffer : textbuf; buffer : textbuf;
End; End;
@ -62,32 +63,33 @@ type
Const Const
{$ifdef linux} {$ifdef linux}
textrecnamelength = 255; textrecnamelength = 256;
{$endif} {$endif}
{$ifdef Win32} {$ifdef Win32}
textrecnamelength = 255; textrecnamelength = 256;
{$endif} {$endif}
{$ifdef MACOS} {$ifdef MACOS}
textrecnamelength = 255; textrecnamelength = 256;
{$endif} {$endif}
{$ifdef AMIGA} {$ifdef AMIGA}
textrecnamelength = 255; textrecnamelength = 256;
{$endif} {$endif}
{$ifdef OS2} {$ifdef OS2}
textrecnamelength = 79; textrecnamelength = 80;
{$endif} {$endif}
{$ifdef Go32v1} {$ifdef Go32v1}
textrecnamelength = 79; textrecnamelength = 80;
{$endif Go32v1} {$endif Go32v1}
{$ifdef Go32v2} {$ifdef Go32v2}
textrecnamelength = 79; textrecnamelength = 80;
{$endif Go32v2} {$endif Go32v2}
{$ifdef ATARI} {$ifdef ATARI}
textrecnamelength = 79; textrecnamelength = 80;
{$endif} {$endif}
TextRecBufSize = 128;
type type
textbuf = array[0..127] of char; textbuf = array[0..TextRecBufSize-1] of char;
{$PACKRECORDS 2} {$PACKRECORDS 2}
textrec = record textrec = record
@ -126,7 +128,7 @@ type
flushfunc, flushfunc,
closefunc : pointer; closefunc : pointer;
userdata : array[1..16] of byte; userdata : array[1..16] of byte;
name : array[0..textrecnamelength] of char; name : array[0..textrecnamelength-1] of char;
buffer : textbuf; buffer : textbuf;
end; end;
@ -134,7 +136,10 @@ type
{ {
$Log$ $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) * uniform filerec/textrec (with recsize:longint and name:0..255)
Revision 1.3 1998/05/21 15:37:19 carl Revision 1.3 1998/05/21 15:37:19 carl