mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-11 21:29:42 +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