paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 01:49:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ introduced the is_wasm_reference_type(tdef) helper

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-06-05 05:00:31 +03:00
parent 5cc4096f41
commit 1f76366125
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/wasm32/symcpu.pas
View File

@ -211,6 +211,9 @@ const
{# Returns true if p is a WebAssembly externref reference type } {# Returns true if p is a WebAssembly externref reference type }
function is_wasm_externref(p : tdef): boolean; 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 implementation
uses uses
@ -233,6 +236,11 @@ implementation
result:=(p.typ=pointerdef) and (tcpupointerdef(p).is_wasm_externref); result:=(p.typ=pointerdef) and (tcpupointerdef(p).is_wasm_externref);
end; end;
function is_wasm_reference_type(p: tdef): boolean;
begin
result:=is_wasm_funcref(p) or is_wasm_externref(p);
end;
{**************************************************************************** {****************************************************************************
tcpuproptertysym tcpuproptertysym