paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-20 05:09:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added the WebAssembly reference and vector types to TWasmBasicType

Browse Source
This commit is contained in:
Nikolay Nikolov 2022-05-28 00:16:51 +03:00
parent 2888710594
commit 907e8402ab
3 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/wasm32/agwat.pas
View File

@ -402,7 +402,7 @@ implementation
InlineLevel : longint;
do_line : boolean;
const
WasmBasicTypeStr : array [TWasmBasicType] of string = ('i32','i64','f32','f64');
WasmBasicTypeStr : array [TWasmBasicType] of string = ('i32','i64','f32','f64','funcref','externref','v128');
begin
if not assigned(p) then

9
compiler/wasm32/cpubase.pas
View File

@ -121,7 +121,14 @@ uses
a_memory_atomic_wait32, a_memory_atomic_wait64, a_memory_atomic_notify, a_atomic_fence
);
TWasmBasicType = (wbt_i32, wbt_i64, wbt_f32, wbt_f64);
TWasmBasicType = (
{ number types }
wbt_i32, wbt_i64, wbt_f32, wbt_f64,
{ reference types }
wbt_funcref, wbt_externref,
{ vector types }
wbt_v128
);
TWasmResultType = array of TWasmBasicType;
{ TWasmFuncType }

2
compiler/wasm32/itcpugas.pas
View File

@ -120,7 +120,7 @@ interface
'memory.atomic.wait32', 'memory.atomic.wait64', 'memory.atomic.notify', 'atomic.fence'
);
gas_wasm_basic_type_str : array [TWasmBasicType] of string = ('i32','i64','f32','f64');
gas_wasm_basic_type_str : array [TWasmBasicType] of string = ('i32','i64','f32','f64','funcref','externref','v128');
function gas_regname(r:Tregister):string;