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

+ AArch64: implementation of taarch64casenode.genlinearlist

Browse Source 
git-svn-id: trunk@42973 -
This commit is contained in:
florian 2019-09-10 18:46:56 +00:00
parent ffb2444d60
commit fa2e751f9f
1 changed files with 115 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

115
compiler/aarch64/ncpuset.pas
View File

@ -34,6 +34,7 @@ interface
procedure optimizevalues(var max_linear_list: int64; var max_dist: qword);override;
function has_jumptable: boolean;override;
procedure genjumptable(hp: pcaselabel ;min_, max_: int64);override;
procedure genlinearlist(hp: pcaselabel);override;
end;
@ -68,6 +69,120 @@ implementation
end;
procedure taarch64casenode.genlinearlist(hp : pcaselabel);
var
first : boolean;
lastrange : boolean;
last : TConstExprInt;
cond_lt,cond_le : tresflags;
opcgsize, unsigned_opcgsize: tcgsize;
procedure genitem(t : pcaselabel);
var
ovloc: tlocation;
begin
if assigned(t^.less) then
genitem(t^.less);
{ need we to test the first value }
if first and (t^._low>get_min_value(left.resultdef)) then
begin
cg.a_cmp_const_reg_label(current_asmdata.CurrAsmList,opcgsize,jmp_lt,aint(t^._low.svalue),hregister,elselabel);
end;
if t^._low=t^._high then
begin
if t^._low-last=0 then
cg.a_cmp_const_reg_label(current_asmdata.CurrAsmList, opcgsize, OC_EQ,0,hregister,blocklabel(t^.blockid))
else
begin
{ use unsigned_opcgsize here to avoid uncessary sign extensions, at this place hregister will never be negative, because
then genlinearlist wouldn't be used }
cg.a_op_const_reg_reg_checkoverflow(current_asmdata.CurrAsmList, OP_SUB, unsigned_opcgsize, aint(t^._low.svalue-last.svalue), hregister, hregister,
true,ovloc);
cg.a_jmp_flags(current_asmdata.CurrAsmList,F_EQ,blocklabel(t^.blockid));
end;
last:=t^._low;
lastrange:=false;
end
else
begin
{ it begins with the smallest label, if the value }
{ is even smaller then jump immediately to the }
{ ELSE-label }
if first then
begin
{ have we to ajust the first value ? }
if (t^._low>get_min_value(left.resultdef)) or (get_min_value(left.resultdef)<>0) then
begin
{ use unsigned_opcgsize here to avoid uncessary sign extensions, at this place hregister will never be negative, because
then genlinearlist wouldn't be use }
cg.a_op_const_reg_reg_checkoverflow(current_asmdata.CurrAsmList, OP_SUB, unsigned_opcgsize, aint(t^._low.svalue), hregister, hregister,
true,ovloc);
end;
end
else
begin
{ if there is no unused label between the last and the }
{ present label then the lower limit can be checked }
{ immediately. else check the range in between: }
{ use unsigned_opcgsize here to avoid uncessary sign extensions, at this place hregister will never be negative, because
then genlinearlist wouldn't be use }
cg.a_op_const_reg_reg_checkoverflow(current_asmdata.CurrAsmList, OP_SUB, unsigned_opcgsize, aint(t^._low.svalue - last.svalue), hregister, hregister,
true,ovloc);
{ no jump necessary here if the new range starts at }
{ at the value following the previous one }
if (aint(t^._low.svalue - last.svalue) <> 1) or
(not lastrange) then
cg.a_jmp_flags(current_asmdata.CurrAsmList,cond_lt,elselabel);
end;
{ use unsigned_opcgsize here to avoid uncessary sign extensions, at this place hregister will never be negative, because
then genlinearlist wouldn't be use }
cg.a_op_const_reg_reg_checkoverflow(current_asmdata.CurrAsmList,OP_SUB,unsigned_opcgsize,aint(t^._high.svalue - t^._low.svalue), hregister, hregister,
true,ovloc);
cg.a_jmp_flags(current_asmdata.CurrAsmList,cond_le,blocklabel(t^.blockid));
last:=t^._high;
lastrange:=true;
end;
first:=false;
if assigned(t^.greater) then
genitem(t^.greater);
end;
begin
opcgsize:=def_cgsize(opsize);
case opcgsize of
OS_8,OS_16,OS_32,OS_S8,OS_S16,OS_S32:
unsigned_opcgsize:=OS_32;
OS_64,OS_S64:
unsigned_opcgsize:=OS_64;
else
Internalerror(2019090902);
end;
if with_sign then
begin
cond_lt:=F_LT;
cond_le:=F_LE;
end
else
begin
cond_lt:=F_CC;
cond_le:=F_LS;
end;
{ do we need to generate cmps? }
if (with_sign and (min_label<0)) then
genlinearcmplist(hp)
else
begin
last:=0;
lastrange:=false;
first:=true;
genitem(hp);
cg.a_jmp_always(current_asmdata.CurrAsmList,elselabel);
end;
end;
procedure taarch64casenode.genjumptable(hp: pcaselabel; min_, max_: int64);
var
last: TConstExprInt;