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

* fixed twasmaddnode.second_cmpfloat

Browse Source 
git-svn-id: branches/wasm@48080 -
This commit is contained in:
nickysn 2021-01-05 08:13:49 +00:00
parent e62979c614
commit cf35b0d2a9
1 changed files with 2 additions and 5 deletions

7
compiler/wasm32/nwasmadd.pas
View File

@ -153,10 +153,6 @@ interface
cmpResultType := s32inttype;
pass_left_right;
// allocating temporary variable (via reference) to hold the result
location_reset_ref(location,LOC_REFERENCE,def_cgsize(resultdef),1,[]);
tg.gethltemp(current_asmdata.CurrAsmList,resultdef,0,tt_normal,location.reference);
commutative:=false;
case nodetype of
ltn :
@ -227,7 +223,8 @@ interface
if we add code to swap the operands when necessary (a_swap for
singles, store/load/load for doubles since there is no swap for
2-slot elements -- also adjust expectloc in that case! }
thlcgwasm(hlcg).a_load_stack_ref(current_asmdata.CurrAsmList,resultdef,location.reference,0);
set_result_location_reg;
thlcgwasm(hlcg).a_load_stack_loc(current_asmdata.CurrAsmList,resultdef,location);
end;