freepascal rtl fix to work

git-svn-id: svn://kolibrios.org@7625 a494cfbc-eb01-0410-851d-a64ba20cac60
2019-04-10 06:10:13 +00:00
parent 2a3f609db6
commit 24fde9ea89
4 changed files with 13 additions and 1 deletions
--- a/programs/develop/fp/rtl/sysutils.pp
+++ b/programs/develop/fp/rtl/sysutils.pp
@@ -162,7 +162,7 @@ begin
  ReleaseFileRecord(Handle);
 end;

-function FileTruncate(Handle: THandle; Size: Longint): Boolean;
+function FileTruncate(Handle: THandle; Size: Int64): Boolean;
 begin
  Result := False;
 end;