paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 21:19:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* implement interface thunk for RISC V 32- and 64-bit

Browse Source 
git-svn-id: trunk@44071 -
This commit is contained in:
svenbarth 2020-01-30 21:46:11 +00:00
parent f1eccca3a6
commit 7bcdc2b37f
1 changed files with 40 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -975,6 +975,46 @@ asm
jmp (a0)
RawThunkEnd:
end;
{$elseif defined(cpuriscv64)}
const
RawThunkPlaceholderProc = $8765876587658765;
RawThunkPlaceholderContext = $4321432143214321;
type
TRawThunkProc = PtrUInt;
TRawThunkContext = PtrUInt;
procedure RawThunk; assembler; nostackframe;
asm
ld x5, .LProc
ld x10, .LContext
jalr x0, x5, 0
.LProc:
.quad RawThunkPlaceholderProc
.LContext:
.quad RawThunkPlaceholderContext
RawThunkEnd:
end;
{$elseif defined(cpuriscv32)}
const
RawThunkPlaceholderProc = $87658765;
RawThunkPlaceholderContext = $43214321;
type
TRawThunkProc = PtrUInt;
TRawThunkContext = PtrUInt;
procedure RawThunk; assembler; nostackframe;
asm
lw x5, .LProc
lw x10, .LContext
jalr x0, x5, 0
.LProc:
.long RawThunkPlaceholderProc
.LContext:
.long RawThunkPlaceholderContext
RawThunkEnd:
end;
{$endif}
{$if declared(RawThunk)}