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

* implement RawThunk for Aarch64

Browse Source 
git-svn-id: trunk@42991 -
This commit is contained in:
svenbarth 2019-09-13 20:38:31 +00:00
parent d6381a3477
commit 492f1ac4be
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
packages/rtl-objpas/src/inc/rtti.pp
View File

@ -929,6 +929,26 @@ asm
.long RawThunkPlaceholderContext .long RawThunkPlaceholderContext
RawThunkEnd: RawThunkEnd:
end; end;
{$elseif defined(cpuaarch64)}
const
RawThunkPlaceholderProc = $8765876587658765;
RawThunkPlaceholderContext = $4321432143214321;
type
TRawThunkProc = PtrUInt;
TRawThunkContext = PtrUInt;
procedure RawThunk; assembler; nostackframe;
asm
ldr x16, .LProc
ldr x0, .LContext
br x16
.LProc:
.quad RawThunkPlaceholderProc
.LContext:
.quad RawThunkPlaceholderContext
RawThunkEnd:
end;
{$elseif defined(cpum68k)} {$elseif defined(cpum68k)}
const const
RawThunkPlaceholderProc = $87658765; RawThunkPlaceholderProc = $87658765;