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

+ support WebAssembly reference types as WebAssembly globals

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-06-11 10:31:12 +03:00
parent d38dbcac8f
commit 8eea58f649
2 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/wasm32/symcpu.pas
View File

@ -403,7 +403,11 @@ implementation
function tcpustaticvarsym.try_get_wasm_global_vardef_type(out res: TWasmBasicType): Boolean; function tcpustaticvarsym.try_get_wasm_global_vardef_type(out res: TWasmBasicType): Boolean;
begin begin
Result:=True; Result:=True;
if is_64bitint(vardef) then if is_wasm_externref(vardef) then
res:=wbt_externref
else if is_wasm_funcref(vardef) then
res:=wbt_funcref
else if is_64bitint(vardef) then
res:=wbt_i64 res:=wbt_i64
else if is_pointer(vardef) then else if is_pointer(vardef) then
res:=wbt_i32 res:=wbt_i32

11
tests/test/wasm/twasmexternref1.pp
View File

@ -3,6 +3,9 @@
program twasmexternref1; program twasmexternref1;
var
global_externref: WasmExternRef; section 'WebAssembly.Global';
procedure testproc; procedure testproc;
var var
p: WasmExternRef; p: WasmExternRef;
@ -23,6 +26,8 @@ var
begin begin
q := d; q := d;
testproc4 := q; testproc4 := q;
global_externref := d;
q := global_externref;
end; end;
function testproc5(q: WasmExternRef): WasmExternRef; function testproc5(q: WasmExternRef): WasmExternRef;
@ -31,6 +36,7 @@ var
begin begin
w := nil; w := nil;
testproc5 := nil; testproc5 := nil;
global_externref := nil;
end; end;
function testproc6: Boolean; function testproc6: Boolean;
@ -39,8 +45,12 @@ var
begin begin
testproc6 := q = nil; testproc6 := q = nil;
testproc6 := nil = q; testproc6 := nil = q;
testproc6 := global_externref = nil;
testproc6 := nil = global_externref;
testproc6 := q <> nil; testproc6 := q <> nil;
testproc6 := nil <> q; testproc6 := nil <> q;
testproc6 := global_externref <> nil;
testproc6 := nil <> global_externref;
end; end;
procedure testproc7(const q: WasmExternRef); procedure testproc7(const q: WasmExternRef);
@ -49,5 +59,6 @@ end;
begin begin
testproc5(nil); testproc5(nil);
testproc5(global_externref);
testproc7(nil); testproc7(nil);
end. end.