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

+ added function fpc_wasm_invoke_helper to the WebAssembly RTL

Browse Source
This commit is contained in:
Nikolay Nikolov 2025-01-25 08:21:56 +02:00
parent 28a9a44894
commit 5e813e62f2
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/compproc.inc
View File

@ -883,3 +883,7 @@ function fpc_hugeptr_cmp_normalized_ae(p1, p2: HugePointer): Boolean; compilerpr
{$ifdef cpullvm}
{$i llvmintr.inc}
{$endif cpullvm}
{$ifdef cpuwasm32}
procedure fpc_wasm_invoke_helper(CodeAddress: CodePointer; Args: Pointer; Result: Pointer); compilerproc;
{$endif cpuwasm32}

5
rtl/wasm32/wasm32.inc
View File

@ -20,6 +20,11 @@
procedure fpc_wasm32_init_tls(memory: Pointer);external name '__wasm_init_tls';
{$endif FPC_WASM_THREADS}
procedure fpc_wasm_invoke_helper(CodeAddress: CodePointer; Args: Pointer; Result: Pointer);assembler;nostackframe;
asm
unreachable
end;
{$define FPC_SYSTEM_HAS_FPC_CPUINIT}
procedure fpc_cpuinit;
begin