From 8d441929a8c725273d101a0cc3138ce59f9c59e8 Mon Sep 17 00:00:00 2001 From: Nikolay Nikolov Date: Sun, 24 Jul 2022 19:04:28 +0300 Subject: [PATCH] + introduced tcpustaticvarsym.is_wasm_global --- compiler/wasm32/symcpu.pas | 5 +++++ 1 file changed, 5 insertions(+) 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