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

* fix lstat for x86_64 linux syscall, has no 32 bit variant

Browse Source 
git-svn-id: trunk@6625 -
This commit is contained in:
micha 2007-02-24 09:42:27 +00:00
parent 51ab3ef946
commit 1a0a2c8adc
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/linux/bunxsysc.inc
View File

@ -406,7 +406,13 @@ Function fpLstat(path:pchar;Info:pstat):cint;
}
begin
fpLStat:=do_syscall(syscall_nr_lstat64,TSysParam(path),TSysParam(info));
fpLStat:=do_syscall(
{$ifdef cpux86_64}
syscall_nr_lstat,
{$else}
syscall_nr_lstat64,
{$endif}
TSysParam(path),TSysParam(info));
end;
Function fpLstat(Filename: ansistring;Info:pstat):cint;
@ -415,7 +421,13 @@ Function fpLstat(Filename: ansistring;Info:pstat):cint;
}
begin
fpLStat:=do_syscall(syscall_nr_lstat64,TSysParam(pchar(filename)),TSysParam(info));
fpLStat:=do_syscall(
{$ifdef cpux86_64}
syscall_nr_lstat,
{$else}
syscall_nr_lstat64,
{$endif}
TSysParam(pchar(filename)),TSysParam(info));
end;