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

* SPARC: convert carry flag into register without branching.

Browse Source 
git-svn-id: trunk@27619 -
This commit is contained in:
sergei 2014-04-20 19:30:59 +00:00
parent 1ec5026465
commit f20b6c73ef
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/sparc/cgcpu.pas
View File

@ -934,6 +934,15 @@ implementation
procedure TCgSparc.g_flags2reg(list:TAsmList;Size:TCgSize;const f:tresflags;reg:TRegister);
var
hl : tasmlabel;
begin
if (f in [F_B]) then
list.concat(taicpu.op_reg_reg_reg(A_ADDX,NR_G0,NR_G0,reg))
else if (f in [F_AE]) then
begin
a_load_const_reg(list,size,1,reg);
list.concat(taicpu.op_reg_reg_reg(A_SUBX,reg,NR_G0,reg));
end
else
begin
current_asmdata.getjumplabel(hl);
a_load_const_reg(list,size,1,reg);
@ -941,6 +950,7 @@ implementation
a_load_const_reg(list,size,0,reg);
a_label(list,hl);
end;
end;
procedure tcgsparc.g_overflowCheck(List:TAsmList;const Loc:TLocation;def:TDef);