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

+ RiscV: set threadvarblocksize

Browse Source 
* sanity check if threadvarblocksize is really set

git-svn-id: trunk@48925 -
This commit is contained in:
florian 2021-03-08 22:07:07 +00:00
parent f7b819526c
commit bb97c5ab69
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/unix/cthreads.pp
View File

@ -116,41 +116,59 @@ Type PINTRTLEvent = ^TINTRTLEvent;
procedure CInitThreadvar(var offset : dword;size : dword); procedure CInitThreadvar(var offset : dword;size : dword);
begin begin
{$ifdef cpusparc} {$ifdef cpusparc}
{$define threadvarblocksize_set}
threadvarblocksize:=align(threadvarblocksize,16); threadvarblocksize:=align(threadvarblocksize,16);
{$endif cpusparc} {$endif cpusparc}
{$ifdef cpusparc64} {$ifdef cpusparc64}
{$define threadvarblocksize_set}
threadvarblocksize:=align(threadvarblocksize,16); threadvarblocksize:=align(threadvarblocksize,16);
{$endif cpusparc64} {$endif cpusparc64}
{$ifdef cpupowerpc} {$ifdef cpupowerpc}
{$define threadvarblocksize_set}
threadvarblocksize:=align(threadvarblocksize,8); threadvarblocksize:=align(threadvarblocksize,8);
{$endif cpupowerc} {$endif cpupowerc}
{$ifdef cpui386} {$ifdef cpui386}
{$define threadvarblocksize_set}
threadvarblocksize:=align(threadvarblocksize,8); threadvarblocksize:=align(threadvarblocksize,8);
{$endif cpui386} {$endif cpui386}
{$ifdef cpuarm} {$ifdef cpuarm}
{$define threadvarblocksize_set}
threadvarblocksize:=align(threadvarblocksize,4); threadvarblocksize:=align(threadvarblocksize,4);
{$endif cpuarm} {$endif cpuarm}
{$ifdef cpum68k} {$ifdef cpum68k}
{$define threadvarblocksize_set}
threadvarblocksize:=align(threadvarblocksize,2); threadvarblocksize:=align(threadvarblocksize,2);
{$endif cpum68k} {$endif cpum68k}
{$ifdef cpux86_64} {$ifdef cpux86_64}
{$define threadvarblocksize_set}
threadvarblocksize:=align(threadvarblocksize,16); threadvarblocksize:=align(threadvarblocksize,16);
{$endif cpux86_64} {$endif cpux86_64}
{$ifdef cpupowerpc64} {$ifdef cpupowerpc64}
{$define threadvarblocksize_set}
threadvarblocksize:=align(threadvarblocksize,16); threadvarblocksize:=align(threadvarblocksize,16);
{$endif cpupowerpc64} {$endif cpupowerpc64}
{$ifdef cpuaarch64} {$ifdef cpuaarch64}
{$define threadvarblocksize_set}
threadvarblocksize:=align(threadvarblocksize,16); threadvarblocksize:=align(threadvarblocksize,16);
{$endif cpuaarch64} {$endif cpuaarch64}
{$ifdef cpuriscv}
{$define threadvarblocksize_set}
threadvarblocksize:=align(threadvarblocksize,16);
{$endif cpuriscv}
{$ifndef threadvarblocksize_set}
{$error threadvarblocksize must be set! }
{$endif threadvarblocksize_set}
offset:=threadvarblocksize; offset:=threadvarblocksize;
inc(threadvarblocksize,size); inc(threadvarblocksize,size);