Home Explore Help
Sign In
pascal
/
fpc
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* fixes for successful cycle on 64 bit systems after 64 bit FS changes

git-svn-id: trunk@1794 -
tom_at_work 20 years ago
parent
b88fcfda62
commit
67e5a7621a
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      rtl/inc/systemh.inc

+ 1 - 1
rtl/inc/systemh.inc
View File 

@@ -569,7 +569,7 @@ Function  SeekEOF (Var t:Text):Boolean;
 
 Function  SeekEOLn:Boolean;
 
 Function  SeekEOLn:Boolean;
 
 Function  SeekEOF:Boolean;
 
 Function  SeekEOF:Boolean;
 
 Procedure SetTextBuf(Var f:Text; Var Buf);[INTERNPROC:fpc_in_settextbuf_file_x];
 
 Procedure SetTextBuf(Var f:Text; Var Buf);[INTERNPROC:fpc_in_settextbuf_file_x];
 
-Procedure SetTextBuf(Var f:Text; Var Buf; Size:Longint);
 
+Procedure SetTextBuf(Var f:Text; Var Buf; Size:SizeInt);
 
 Procedure SetTextLineEnding(Var f:Text; Ending:string);
 
 Procedure SetTextLineEnding(Var f:Text; Ending:string);
 
 
 
 {****************************************************************************
 
 {****************************************************************************