paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 04:32:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* enabled 64 bit filetruncate

Browse Source 
git-svn-id: trunk@6739 -
This commit is contained in:
Jonas Maebe 2007-03-06 10:17:03 +00:00
parent ab906ce02e
commit 6a7321c318
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/unix/sysutils.pp
View File

@ -241,10 +241,11 @@ end;
Function FileTruncate (Handle: THandle; Size: Int64) : boolean;
begin
{$if defined(linux) and defined(fs32bit)}
if Size > high (longint) then
FileTruncate := false
{$WARNING Support for 64-bit FS to be added!}
else
{$endif}
FileTruncate:=fpftruncate(Handle,Size)>=0;
end;