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

+ support <,<=,> and >= comparisons of address register types in thlcgwasm.a_cmp_stack_stack

Browse Source 
git-svn-id: branches/wasm@48040 -
This commit is contained in:
nickysn 2021-01-04 13:49:14 +00:00
parent 11ae8e54a1
commit 68693b2890
1 changed files with 2 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/wasm32/hlcgcpu.pas
View File

@ -839,7 +839,8 @@ implementation
// (i.e. Exit or break or continue operators)
case def2regtyp(size) of
R_INTREGISTER:
R_INTREGISTER,
R_ADDRESSREGISTER:
begin
cgsize:=def_cgsize(size);
case cgsize of
@ -863,20 +864,6 @@ implementation
internalerror(2010120538);
end;
end;
R_ADDRESSREGISTER:
begin
case cmp_op of
OC_EQ:
//list.concat(taicpu.op_sym(a_i64_eq,lab));
list.concat(taicpu.op_none(a_i32_eq));
OC_NE:
//list.concat(taicpu.op_sym(a_i64_ne,lab));
list.concat(taicpu.op_none(a_i32_ne));
else
internalerror(2010120537);
end;
decstack(list,2);
end;
else
internalerror(2010120538);
end;