paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 20:49:09 +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, parabase,
pass_2, pass_2,
ncon, ncon,
tgobj,ncgutil,cgobj,cgutils,paramgr tgobj,ncgutil,cgobj,cgutils,paramgr,hlcgobj
{$ifndef cpu64bitalu} {$ifndef cpu64bitalu}
,cg64f32 ,cg64f32
{$endif not cpu64bitalu} {$endif not cpu64bitalu}
@ -488,10 +488,10 @@ implementation
procedure tcgnotnode.second_integer; procedure tcgnotnode.second_integer;
begin begin
secondpass(left); 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); location_copy(location,left.location);
{ perform the NOT operation } { 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; end;