From 8eea58f64901b97890fc5eb4b37427a55036b539 Mon Sep 17 00:00:00 2001
From: Nikolay Nikolov <nickysn@gmail.com>
Date: Sun, 11 Jun 2023 10:31:12 +0300
Subject: [PATCH] + support WebAssembly reference types as WebAssembly globals

---
 compiler/wasm32/symcpu.pas         |  6 +++++-
 tests/test/wasm/twasmexternref1.pp | 11 +++++++++++
 2 files changed, 16 insertions(+), 1 deletion(-)

diff --git a/compiler/wasm32/symcpu.pas b/compiler/wasm32/symcpu.pas
index 8be93ce18d..8f58f6a3c8 100644
--- a/compiler/wasm32/symcpu.pas
+++ b/compiler/wasm32/symcpu.pas
@@ -403,7 +403,11 @@ implementation
     function tcpustaticvarsym.try_get_wasm_global_vardef_type(out res: TWasmBasicType): Boolean;
       begin
         Result:=True;
-        if is_64bitint(vardef) then
+        if is_wasm_externref(vardef) then
+          res:=wbt_externref
+        else if is_wasm_funcref(vardef) then
+          res:=wbt_funcref
+        else if is_64bitint(vardef) then
           res:=wbt_i64
         else if is_pointer(vardef) then
           res:=wbt_i32
diff --git a/tests/test/wasm/twasmexternref1.pp b/tests/test/wasm/twasmexternref1.pp
index c961fabc6a..956f15c652 100644
--- a/tests/test/wasm/twasmexternref1.pp
+++ b/tests/test/wasm/twasmexternref1.pp
@@ -3,6 +3,9 @@
 
 program twasmexternref1;
 
+var
+  global_externref: WasmExternRef; section 'WebAssembly.Global';
+
 procedure testproc;
 var
   p: WasmExternRef;
@@ -23,6 +26,8 @@ var
 begin
   q := d;
   testproc4 := q;
+  global_externref := d;
+  q := global_externref;
 end;
 
 function testproc5(q: WasmExternRef): WasmExternRef;
@@ -31,6 +36,7 @@ var
 begin
   w := nil;
   testproc5 := nil;
+  global_externref := nil;
 end;
 
 function testproc6: Boolean;
@@ -39,8 +45,12 @@ var
 begin
   testproc6 := q = nil;
   testproc6 := nil = q;
+  testproc6 := global_externref = nil;
+  testproc6 := nil = global_externref;
   testproc6 := q <> nil;
   testproc6 := nil <> q;
+  testproc6 := global_externref <> nil;
+  testproc6 := nil <> global_externref;
 end;
 
 procedure testproc7(const q: WasmExternRef);
@@ -49,5 +59,6 @@ end;
 
 begin
   testproc5(nil);
+  testproc5(global_externref);
   testproc7(nil);
 end.