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

* fix fstat to use 64 bit syscall as well

Browse Source 
git-svn-id: trunk@5123 -
This commit is contained in:
micha 2006-10-31 14:21:59 +00:00
parent 5cb1af6e2a
commit 9f22b00219
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/linux/ossysc.inc
View File

@ -305,7 +305,11 @@ end;
function Fpfstat(fd : cint; var sb : stat): cint; [public, alias : 'FPC_SYSC_FSTAT']; function Fpfstat(fd : cint; var sb : stat): cint; [public, alias : 'FPC_SYSC_FSTAT'];
begin begin
{$if defined(cpu64) and not defined(cpupowerpc64)}
FpFStat:=do_SysCall(syscall_nr_fstat,TSysParam(fd),TSysParam(@sb)); FpFStat:=do_SysCall(syscall_nr_fstat,TSysParam(fd),TSysParam(@sb));
{$else}
FpFStat:=do_SysCall(syscall_nr_fstat64,TSysParam(fd),TSysParam(@sb));
{$endif}
end; end;