paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 07:46:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

* settextbuf size is now longint

Browse Source
This commit is contained in:
peter 1999-08-19 11:16:13 +00:00
parent 3a3d53418b
commit 4557f11bac
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/systemh.inc
View File

@ -323,7 +323,7 @@ Function SeekEOF (Var t:Text):Boolean;
Function SeekEOLn:Boolean;
Function SeekEOF:Boolean;
Procedure SetTextBuf(Var f:Text; Var Buf);
Procedure SetTextBuf(Var f:Text; Var Buf; Size:Word);
Procedure SetTextBuf(Var f:Text; Var Buf; Size:Longint);
{****************************************************************************
@ -395,7 +395,10 @@ const
{
$Log$
Revision 1.61 1999-07-05 20:04:28 peter
Revision 1.62 1999-08-19 11:16:13 peter
* settextbuf size is now longint
Revision 1.61 1999/07/05 20:04:28 peter
* removed temp defines
Revision 1.60 1999/07/03 01:24:21 peter

7
rtl/inc/text.inc
View File

@ -353,7 +353,7 @@ End;
Procedure SetTextBuf(Var F : Text; Var Buf);[INTERNPROC: In_settextbuf_file_x];
Procedure SetTextBuf(Var F : Text; Var Buf; Size : Word);
Procedure SetTextBuf(Var F : Text; Var Buf; Size : Longint);
Begin
TextRec(f).BufPtr:=@Buf;
TextRec(f).BufSize:=Size;
@ -945,7 +945,10 @@ end;
{
$Log$
Revision 1.52 1999-08-03 21:58:45 peter
Revision 1.53 1999-08-19 11:16:14 peter
* settextbuf size is now longint
Revision 1.52 1999/08/03 21:58:45 peter
* small speed improvements
Revision 1.51 1999/07/26 09:43:24 florian