paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 17:19:19 +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; InlineLevel : longint;
do_line : boolean; do_line : boolean;
const 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 begin
if not assigned(p) then if not assigned(p) then

3
compiler/wasm32/cpubase.pas
View File

@ -131,6 +131,7 @@ uses
); );
TWasmBasicType = ( TWasmBasicType = (
wbt_Unknown,
{ number types } { number types }
wbt_i32, wbt_i64, wbt_f32, wbt_f64, wbt_i32, wbt_i64, wbt_f32, wbt_f64,
{ reference types } { reference types }
@ -680,7 +681,7 @@ uses
function TWasmFuncType.ToString: ansistring; function TWasmFuncType.ToString: ansistring;
const 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 var
i: Integer; i: Integer;
begin begin

2
compiler/wasm32/itcpugas.pas
View File

@ -129,7 +129,7 @@ interface
'memory.atomic.wait32', 'memory.atomic.wait64', 'memory.atomic.notify', 'atomic.fence' '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; function gas_regname(r:Tregister):string;