mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-17 23:19:29 +02:00
+ simple test for WasmExternRef
This commit is contained in:
parent
fa9873c6eb
commit
65b175cebd
29
tests/test/wasm/twasmexternref1.pp
Normal file
29
tests/test/wasm/twasmexternref1.pp
Normal file
@ -0,0 +1,29 @@
|
||||
{ %cpu=wasm32 }
|
||||
{ %norun }
|
||||
|
||||
program twasmexternref1;
|
||||
|
||||
procedure testproc;
|
||||
var
|
||||
p: WasmExternRef;
|
||||
begin
|
||||
end;
|
||||
|
||||
procedure testproc2(q: WasmExternRef);
|
||||
begin
|
||||
end;
|
||||
|
||||
function testproc3: WasmExternRef;
|
||||
begin
|
||||
end;
|
||||
|
||||
function testproc4(a, b, c: longint; d: WasmExternRef; e: int64): WasmExternRef;
|
||||
var
|
||||
q: WasmExternRef;
|
||||
begin
|
||||
q := d;
|
||||
testproc4 := q;
|
||||
end;
|
||||
|
||||
begin
|
||||
end.
|
Loading…
Reference in New Issue
Block a user