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

+ implemented the boolean NOT node for WebAssembly

Browse Source 
git-svn-id: branches/wasm@48180 -
This commit is contained in:
nickysn 2021-01-18 22:48:24 +00:00
parent af41eee9d1
commit 9fdc8c141c
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/wasm32/nwasmmat.pas
View File

@ -40,7 +40,9 @@ interface
procedure pass_generate_code;override;
end;
twasmnotnode = class(tcghlnotnode)
twasmnotnode = class(tcgnotnode)
protected
procedure second_boolean;override;
end;
twasmunaryminusnode = class(tcgunaryminusnode)
@ -185,6 +187,21 @@ implementation
end;
{*****************************************************************************
twasmnotnode
*****************************************************************************}
procedure twasmnotnode.second_boolean;
begin
secondpass(left);
if not(left.location.loc in [LOC_REGISTER,LOC_CREGISTER]) then
hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,left.resultdef,false);
location_reset(location,LOC_REGISTER,left.location.size);
location.register:=cg.getintregister(current_asmdata.CurrAsmList,location.size);
{ perform the NOT operation }
hlcg.a_op_reg_reg(current_asmdata.CurrAsmList,OP_NOT,left.resultdef,left.location.register,location.register);
end;
{*****************************************************************************
twasmunaryminustnode
*****************************************************************************}