@@ -8,7 +8,7 @@ var
p: WasmExternRef;
q: Pointer;
begin
- { WasmExternRef cannot be converted to pointer }
+ { WasmExternRef cannot be explicitly converted to pointer }
q := Pointer(p);
end;
- { A pointer cannot be converted to WasmExternRef }
+ { A pointer cannot be explicitly converted to WasmExternRef }
p := WasmExternRef(q);
@@ -0,0 +1,16 @@
+{ %cpu=wasm32 }
+{ %fail }
+
+program twasmexternref3b;
+procedure testproc;
+var
+ p: WasmExternRef;
+ q: Pointer;
+begin
+ { WasmExternRef cannot be implicitly converted to pointer }
+ q := p;
+end;
+end.
+program twasmexternref3c;
+ { A pointer cannot be implicitly converted to WasmExternRef }
+ p := q;