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
commit
67e5a7621a
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/inc/systemh.inc

+ 1 - 1
rtl/inc/systemh.inc

@@ -569,7 +569,7 @@ Function  SeekEOF (Var t:Text):Boolean;
 Function  SeekEOLn:Boolean;
 Function  SeekEOF:Boolean;
 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);
 
 {****************************************************************************