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

+ implements tavraddnode.second_cmpsmallset

Browse Source 
git-svn-id: branches/avr@17295 -
This commit is contained in:
florian 2011-04-10 18:52:56 +00:00
parent 8cfbb70326
commit eb2a2a5ea0
1 changed files with 19 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
compiler/avr/navradd.pas
View File

@ -120,26 +120,36 @@ interface
procedure tavraddnode.second_cmpsmallset;
procedure gencmp(tmpreg1,tmpreg2 : tregister);
var
i : byte;
begin
current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_CP,tmpreg1,tmpreg2));
for i:=2 to tcgsize2size[left.location.size] do
begin
tmpreg1:=GetNextReg(tmpreg1);
tmpreg2:=GetNextReg(tmpreg2);
current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_CPC,tmpreg1,tmpreg2));
end;
end;
var
tmpreg : tregister;
begin
{ TODO : implement tavraddnode.second_cmpsmallset }
{
pass_left_right;
location_reset(location,LOC_FLAGS,OS_NO);
force_reg_left_right(false,false);
case nodetype of
equaln:
begin
current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_CMP,left.location.register,right.location.register));
gencmp(left.location.register,right.location.register);
location.resflags:=F_EQ;
end;
unequaln:
begin
current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_CMP,left.location.register,right.location.register));
gencmp(left.location.register,right.location.register);
location.resflags:=F_NE;
end;
lten,
@ -151,14 +161,14 @@ interface
(nodetype = gten)) then
swapleftright;
tmpreg:=cg.getintregister(current_asmdata.CurrAsmList,location.size);
current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg_reg(A_AND,tmpreg,left.location.register,right.location.register));
current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_CMP,tmpreg,right.location.register));
cg.a_op_reg_reg_reg(current_asmdata.CurrAsmList,OP_AND,location.size,
left.location.register,right.location.register,tmpreg);
gencmp(tmpreg,right.location.register);
location.resflags:=F_EQ;
end;
else
internalerror(2004012401);
end;
}
end;