mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-10 13:29:16 +02:00
* disallow passing WebAssembly reference types as untyped out parameters as well
This commit is contained in:
parent
6ff566350c
commit
64569df017
21
tests/test/wasm/twasmexternref4f.pp
Normal file
21
tests/test/wasm/twasmexternref4f.pp
Normal file
@ -0,0 +1,21 @@
|
||||
{ %cpu=wasm32 }
|
||||
{ %fail }
|
||||
|
||||
program twasmexternref4f;
|
||||
|
||||
{$MODE objfpc}
|
||||
|
||||
procedure testproc(out p);
|
||||
begin
|
||||
end;
|
||||
|
||||
procedure testproc2;
|
||||
var
|
||||
q: WasmExternRef;
|
||||
begin
|
||||
{ WasmExternRef cannot be passed as an untyped out parameter }
|
||||
testproc(q);
|
||||
end;
|
||||
|
||||
begin
|
||||
end.
|
Loading…
Reference in New Issue
Block a user