diff --git a/compiler/wasm32/symcpu.pas b/compiler/wasm32/symcpu.pas index 85930f4500..af88529848 100644 --- a/compiler/wasm32/symcpu.pas +++ b/compiler/wasm32/symcpu.pas @@ -165,6 +165,7 @@ type tcpuparavarsymclass = class of tcpuparavarsym; tcpustaticvarsym = class(tstaticvarsym) + function is_wasm_global: Boolean; end; tcpustaticvarsymclass = class of tcpustaticvarsym; @@ -315,6 +316,10 @@ implementation tcpustaticvarsym ****************************************************************************} + function tcpustaticvarsym.is_wasm_global: Boolean; + begin + Result:=UpCase(section)='WEBASSEMBLY.GLOBAL'; + end; {**************************************************************************** tcpufieldvarsym