paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-07 16:00:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ some basic tests for WebAssembly funcref types added

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-06-11 04:27:05 +03:00
parent 8b138aa059
commit fcd5ecfcce
2 changed files with 68 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
tests/test/wasm/twasmfuncref1.pp Normal file
View File

@ -0,0 +1,34 @@
{ %cpu=wasm32 }
{ %norun }
program twasmfuncref1;
{$MODE fpc}
type
TWasmFuncRef = function(a: longint; b: int64): longint; WasmFuncRef;
procedure testproc;
var
p: TWasmFuncRef;
begin
end;
procedure testproc2(q: TWasmFuncRef);
begin
end;
function testproc3: TWasmFuncRef;
begin
end;
function testproc4(a, b, c: longint; d: TWasmFuncRef; e: int64): TWasmFuncRef;
var
q: TWasmFuncRef;
begin
q := d;
testproc4 := q;
end;
begin
end.

34
tests/test/wasm/twasmfuncref1a.pp Normal file
View File

@ -0,0 +1,34 @@
{ %cpu=wasm32 }
{ %norun }
program twasmfuncref1;
{$MODE tp}
type
TWasmFuncRef = function(a: longint; b: int64): longint; WasmFuncRef;
procedure testproc;
var
p: TWasmFuncRef;
begin
end;
procedure testproc2(q: TWasmFuncRef);
begin
end;
function testproc3: TWasmFuncRef;
begin
end;
function testproc4(a, b, c: longint; d: TWasmFuncRef; e: int64): TWasmFuncRef;
var
q: TWasmFuncRef;
begin
q := d;
testproc4 := q;
end;
begin
end.