From 26dabadb9171faeb2619462dff6bd375a0d3c55e Mon Sep 17 00:00:00 2001
From: hajny <hajny@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Mon, 5 Mar 2007 23:47:10 +0000
Subject:   + FileTruncate allows 64-bit parameter

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@6727 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 rtl/macos/sysutils.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'rtl/macos')

diff --git a/rtl/macos/sysutils.pp b/rtl/macos/sysutils.pp
index 0fe47cf77d..d250171084 100644
--- a/rtl/macos/sysutils.pp
+++ b/rtl/macos/sysutils.pp
@@ -154,7 +154,7 @@ begin
   *)
 end;
 
-Function FileTruncate (Handle,Size: Longint) : boolean;
+Function FileTruncate (Handle: THandle; Size: Int64) : boolean;
 
 begin
   (* TODO fix
-- 
cgit v1.2.1