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

* some type declarations for sparc64-linux fixed

Browse Source 
git-svn-id: trunk@36714 -
This commit is contained in:
florian 2017-07-09 20:28:30 +00:00
parent 4a107ac079
commit 13e76ccc01
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/linux/pmutext.inc
View File

@ -19,7 +19,7 @@
from the system unit interface; macro's have to be on at this point from the system unit interface; macro's have to be on at this point
because they're use to propagate the MUTEXTYPENAME here } because they're use to propagate the MUTEXTYPENAME here }
{$if defined(CPUMIPS) or defined(cpuaarch64)} {$if defined(CPUMIPS) or defined(cpuaarch64) or defined(cpusparc64)}
{$define USE_PTHREAD_SIZEOF} {$define USE_PTHREAD_SIZEOF}
{$if defined(cpuaarch64)} {$if defined(cpuaarch64)}
@ -30,7 +30,7 @@
{$define __SIZEOF_PTHREAD_MUTEX_T := 24} {$define __SIZEOF_PTHREAD_MUTEX_T := 24}
{$endif CPU64} {$endif CPU64}
{$endif MIPS} {$endif defined(CPUMIPS) or defined(cpuaarch64) or defined(cpusparc64)}
MUTEXTYPENAME = record MUTEXTYPENAME = record
case byte of case byte of

6
rtl/linux/ptypes.inc
View File

@ -30,7 +30,7 @@ and all three 32-bit systems returned completely identical types too
introduction) introduction)
} }
{$if defined(CPUMIPS) or defined(cpuaarch64)} {$if defined(CPUMIPS) or defined(cpuaarch64) or defined(cpusparc64)}
{$define USE_PTHREAD_SIZEOF} {$define USE_PTHREAD_SIZEOF}
{$if defined(cpuaarch64)} {$if defined(cpuaarch64)}
const const
@ -164,7 +164,11 @@ Type
timeval = record timeval = record
tv_sec:time_t; tv_sec:time_t;
{$ifdef CPUSPARC64}
tv_usec:cint;
{$else CPUSPARC64}
tv_usec:clong; tv_usec:clong;
{$endif CPUSPARC64}
end; end;
ptimeval = ^timeval; ptimeval = ^timeval;
TTimeVal = timeval; TTimeVal = timeval;