소스 검색

+ introduced the is_wasm_reference_type(tdef) helper

Nikolay Nikolov 2 년 전
부모
커밋
1f76366125
1개의 변경된 파일8개의 추가작업 그리고 0개의 파일을 삭제
  1. 8 0
      compiler/wasm32/symcpu.pas

+ 8 - 0
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