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

Define __USE_LARGEFILE64 for sparc-linux, and adapt filed ffree type to that macro

Browse Source 
git-svn-id: trunk@45837 -
This commit is contained in:
pierre 2020-07-23 21:03:19 +00:00
parent 1d5c714ff2
commit 2e6bba76bf
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/linux/ptypes.inc
View File

@ -29,6 +29,9 @@ and all three 32-bit systems returned completely identical types too
(everything 32-bit except dev_t, which is assumed to be a result of devfs (everything 32-bit except dev_t, which is assumed to be a result of devfs
introduction) introduction)
} }
{$ifdef CPUSPARC}
{$define __USE_LARGEFILE64}
{$endif}
{$if defined(CPUMIPS) or defined(cpuaarch64) or defined(cpusparc64)} {$if defined(CPUMIPS) or defined(cpuaarch64) or defined(cpusparc64)}
{$define USE_PTHREAD_SIZEOF} {$define USE_PTHREAD_SIZEOF}
@ -202,7 +205,12 @@ Type
bfree, { free blocks in system } bfree, { free blocks in system }
bavail, { Available free blocks to non-root users } bavail, { Available free blocks to non-root users }
files, { File nodes in system } files, { File nodes in system }
ffree : culong; { Free file nodes in system } ffree :
{$ifdef __USE_LARGEFILE64}
culonglong; { Free file nodes in system }
{$else}
culong; { Free file nodes in system }
{$endif}
fsid : array[0..1] of cint; { File system ID } fsid : array[0..1] of cint; { File system ID }
namelen, { Maximum name length in system } namelen, { Maximum name length in system }
frsize : cint; frsize : cint;