paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 12:39:25 +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

6
rtl/linux/pmutext.inc
View File

@ -19,7 +19,7 @@
from the system unit interface; macro's have to be on at this point
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}
{$if defined(cpuaarch64)}
@ -30,7 +30,7 @@
{$define __SIZEOF_PTHREAD_MUTEX_T := 24}
{$endif CPU64}
{$endif MIPS}
{$endif defined(CPUMIPS) or defined(cpuaarch64) or defined(cpusparc64)}
MUTEXTYPENAME = record
case byte of
@ -55,4 +55,4 @@
{$ifdef __SIZEOF_PTHREAD_MUTEX_T}
{$undef __SIZEOF_PTHREAD_MUTEX_T}
{$endif __SIZEOF_PTHREAD_MUTEX_T}
{$macro off}
{$macro off}

6
rtl/linux/ptypes.inc
View File

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