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

* force usage of stat64 on sparc64

Browse Source 
* always use packrecords c for the stat records on sparc64

git-svn-id: trunk@36664 -
This commit is contained in:
florian 2017-07-07 12:22:49 +00:00
parent bf0a4e9ad7
commit e2226598ab
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/linux/ossysc.inc
View File

@ -122,7 +122,8 @@ end;
function Fpstat(path: pchar; var buf: stat):cint; [public, alias : 'FPC_SYSC_STAT'];
begin
{$if defined(cpu64)}
{ standard stat call is 32 bit on sparc64, so explicitly force a stat64 call }
{$if defined(cpu64) and not(defined(cpusparc64))}
{$if defined(generic_linux_syscalls)}
Fpstat:=do_syscall(syscall_nr_fstatat,AT_FDCWD,TSysParam(path),TSysParam(@buf),0);
{$else}

4
rtl/linux/sparc64/stat.inc
View File

@ -12,6 +12,8 @@
**********************************************************************}
{$PACKRECORDS C}
{$IFNDEF FPC_USE_LIBC}
{ do NOT declare this record as packed, because it needs to be aligned }
@ -43,8 +45,6 @@
{$ELSE FPC_USE_LIBC}
{$PACKRECORDS C}
Stat = record
st_dev : cULongLong;
st_ino : cULongLong;