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

+ added a zero/unitialized/unknown value to TWasmBasicType: wbt_Unknown

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-01-17 08:32:10 +02:00
parent 4867d48e99
commit 03fc5d2323
3 changed files with 4 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','funcref','externref','v128');
WasmBasicTypeStr : array [TWasmBasicType] of string = ('unknown','i32','i64','f32','f64','funcref','externref','v128');
begin
if not assigned(p) then

3
compiler/wasm32/cpubase.pas
View File

@ -131,6 +131,7 @@ uses
);
TWasmBasicType = (
wbt_Unknown,
{ number types }
wbt_i32, wbt_i64, wbt_f32, wbt_f64,
{ reference types }
@ -680,7 +681,7 @@ uses
function TWasmFuncType.ToString: ansistring;
const
wasm_basic_type_str : array [TWasmBasicType] of string = ('i32','i64','f32','f64','funcref','externref','v128');
wasm_basic_type_str : array [TWasmBasicType] of string = ('unknown','i32','i64','f32','f64','funcref','externref','v128');
var
i: Integer;
begin

2
compiler/wasm32/itcpugas.pas
View File

@ -129,7 +129,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','funcref','externref','v128');
gas_wasm_basic_type_str : array [TWasmBasicType] of string = ('unknown','i32','i64','f32','f64','funcref','externref','v128');
function gas_regname(r:Tregister):string;