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

* converted tcgnotnode.second_integer() to hlcg

Browse Source 
git-svn-id: branches/jvmbackend@18509 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:05:48 +00:00
parent 3259eae110
commit 4c152ccb7d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ncgmat.pas
View File

@ -131,7 +131,7 @@ implementation
parabase,
pass_2,
ncon,
tgobj,ncgutil,cgobj,cgutils,paramgr
tgobj,ncgutil,cgobj,cgutils,paramgr,hlcgobj
{$ifndef cpu64bitalu}
,cg64f32
{$endif not cpu64bitalu}
@ -488,10 +488,10 @@ implementation
procedure tcgnotnode.second_integer;
begin
secondpass(left);
location_force_reg(current_asmdata.CurrAsmList,left.location,def_cgsize(left.resultdef),false);
hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,left.resultdef,false);
location_copy(location,left.location);
{ perform the NOT operation }
cg.a_op_reg_reg(current_asmdata.CurrAsmList,OP_NOT,location.size,location.register,location.register);
hlcg.a_op_reg_reg(current_asmdata.CurrAsmList,OP_NOT,left.resultdef,location.register,location.register);
end;