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

* fixed fpftruncate, fplseek: removed ppc64 part of "$if defined(cpu64) and not defined(cpupowerpc64)"

Browse Source 
git-svn-id: trunk@5392 -
This commit is contained in:
tom_at_work 2006-11-15 21:38:20 +00:00
parent 8998a04bf6
commit 66607303af
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/linux/ossysc.inc
View File

@ -43,7 +43,7 @@ end;
function Fplseek(fd : cint; offset : off_t; whence : cint): off_t; [public, alias : 'FPC_SYSC_LSEEK']; function Fplseek(fd : cint; offset : off_t; whence : cint): off_t; [public, alias : 'FPC_SYSC_LSEEK'];
begin begin
{$if defined(cpu64) and not defined(cpupowerpc64)} {$if defined(cpu64)}
result:=do_syscall(syscall_nr_lseek,tsysparam(fd),tsysparam(offset),tsysparam(whence)); result:=do_syscall(syscall_nr_lseek,tsysparam(fd),tsysparam(offset),tsysparam(whence));
{$else} {$else}
if do_syscall(syscall_nr__llseek,tsysparam(fd),tsysparam(hi(offset)),tsysparam(lo(offset)), if do_syscall(syscall_nr__llseek,tsysparam(fd),tsysparam(hi(offset)),tsysparam(lo(offset)),
@ -299,7 +299,7 @@ function Fpftruncate(fd : cint; flength : off_t): cint; [public, alias : 'FPC_SY
doesn't have the returnvalue 64-bit problem)} doesn't have the returnvalue 64-bit problem)}
begin begin
{$if defined(cpu64) and not defined(cpupowerpc64)} {$if defined(cpu64)}
Fpftruncate:=Do_syscall(syscall_nr_ftruncate,TSysParam(fd),TSysParam(flength)); Fpftruncate:=Do_syscall(syscall_nr_ftruncate,TSysParam(fd),TSysParam(flength));
{$else} {$else}
Fpftruncate:=Do_syscall(syscall_nr_ftruncate64,TSysParam(fd),TSysParam(lo(flength)), Fpftruncate:=Do_syscall(syscall_nr_ftruncate64,TSysParam(fd),TSysParam(lo(flength)),