瀏覽代碼

+ added function fpc_wasm_invoke_helper to the WebAssembly RTL

Nikolay Nikolov 6 月之前
父節點
當前提交
5e813e62f2
共有 2 個文件被更改,包括 9 次插入0 次删除
  1. 4 0
      rtl/inc/compproc.inc
  2. 5 0
      rtl/wasm32/wasm32.inc

+ 4 - 0
rtl/inc/compproc.inc

@@ -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 - 0
rtl/wasm32/wasm32.inc

@@ -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