paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 23:19:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ introduced methods for converting WebAssembly global var types from a Pascal type to TWasmBasicType

Browse Source
This commit is contained in:
Nikolay Nikolov 2022-07-25 02:44:51 +03:00
parent 7bd1ac4507
commit 6e1d7b4e57
1 changed files with 34 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
compiler/wasm32/symcpu.pas
View File

@ -166,6 +166,9 @@ type
tcpustaticvarsym = class(tstaticvarsym)
function is_wasm_global: Boolean;
function try_get_wasm_global_vardef_type(out res: TWasmBasicType): Boolean;
function get_wasm_global_vardef_type: TWasmBasicType;
function has_valid_wasm_global_vardef_type: Boolean;
end;
tcpustaticvarsymclass = class of tcpustaticvarsym;
@ -199,6 +202,7 @@ implementation
uses
verbose,cutils,cclasses,globals,cgbase,
symconst,symbase,symtable,symcreat,wasmdef,
defutil,
pdecsub,pparautl,paramgr,
// high-level code generator is needed to get access to type index for ncall
hlcgobj,hlcgcpu,
@ -321,6 +325,36 @@ implementation
Result:=UpCase(section)='WEBASSEMBLY.GLOBAL';
end;
function tcpustaticvarsym.try_get_wasm_global_vardef_type(out res: TWasmBasicType): Boolean;
begin
Result:=True;
if is_64bitint(vardef) then
res:=wbt_i64
else if is_pointer(vardef) then
res:=wbt_i32
else if is_32bitint(vardef) then
res:=wbt_i32
else if is_single(vardef) then
res:=wbt_f32
else if is_double(vardef) then
res:=wbt_f64
else
Result:=False;
end;
function tcpustaticvarsym.get_wasm_global_vardef_type: TWasmBasicType;
begin
if not try_get_wasm_global_vardef_type(Result) then
internalerror(2022072501);
end;
function tcpustaticvarsym.has_valid_wasm_global_vardef_type: Boolean;
var
TempWBT: TWasmBasicType;
begin
result:=try_get_wasm_global_vardef_type(TempWBT);
end;
{****************************************************************************
tcpufieldvarsym
****************************************************************************}