From 1f7636612542d76c4a9163de1f126f9d654fa6cf Mon Sep 17 00:00:00 2001
From: Nikolay Nikolov <nickysn@gmail.com>
Date: Mon, 5 Jun 2023 05:00:31 +0300
Subject: [PATCH] + introduced the is_wasm_reference_type(tdef) helper

---
 compiler/wasm32/symcpu.pas | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/compiler/wasm32/symcpu.pas b/compiler/wasm32/symcpu.pas
index bde3bbb934..61bf6ef1b4 100644
--- a/compiler/wasm32/symcpu.pas
+++ b/compiler/wasm32/symcpu.pas
@@ -211,6 +211,9 @@ const
   {# Returns true if p is a WebAssembly externref reference type }
   function is_wasm_externref(p : tdef): boolean;
 
+  {# Returns true if p is a WebAssembly reference type (funcref or externref) }
+  function is_wasm_reference_type(p : tdef): boolean;
+
 implementation
 
   uses
@@ -233,6 +236,11 @@ implementation
       result:=(p.typ=pointerdef) and (tcpupointerdef(p).is_wasm_externref);
     end;
 
+  function is_wasm_reference_type(p: tdef): boolean;
+    begin
+      result:=is_wasm_funcref(p) or is_wasm_externref(p);
+    end;
+
 
   {****************************************************************************
                                tcpuproptertysym