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

* optimized a_loadaddr_ref_reg() in cases where an offset is added to a

Browse Source 
symbol or base register and the offset is a multiple of the def's size

git-svn-id: branches/hlcgllvm@27007 -
This commit is contained in:
Jonas Maebe 2014-03-06 21:41:53 +00:00
parent c4869980e8
commit abee66b611
1 changed files with 17 additions and 1 deletions

18
compiler/llvm/hlcgllvm.pas
View File

@ -915,6 +915,7 @@ implementation
function thlcgllvm.make_simple_ref(list: TAsmList; const ref: treference; def: tdef): treference;
var
ptrindex: tcgint;
hreg1,
hreg2: tregister;
tmpref: treference;
@ -928,6 +929,22 @@ implementation
result:=ref;
exit;
end;
hreg2:=getaddressregister(list,getpointerdef(def));
{ symbol+offset or base+offset with offset a multiple of the size ->
use getelementptr }
if (ref.index=NR_NO) and
(ref.offset mod def.size=0) then
begin
ptrindex:=ref.offset div def.size;
if assigned(ref.symbol) then
reference_reset_symbol(tmpref,ref.symbol,0,ref.alignment)
else
reference_reset_base(tmpref,ref.base,0,ref.alignment);
list.concat(taillvm.getelementptr_reg_size_ref_size_const(hreg2,getpointerdef(def),tmpref,ptruinttype,ptrindex,assigned(ref.symbol)));
reference_reset_base(result,hreg2,0,ref.alignment);
exit;
end;
{ for now, perform all calculations using plain pointer arithmetic. Later
we can look into optimizations based on getelementptr for structured
accesses (if only to prevent running out of virtual registers).
@ -963,7 +980,6 @@ implementation
a_op_const_reg_reg(list,OP_ADD,ptruinttype,ref.offset,hreg1,hreg2);
hreg1:=hreg2;
end;
hreg2:=getaddressregister(list,getpointerdef(def));
a_load_reg_reg(list,ptruinttype,getpointerdef(def),hreg1,hreg2);
reference_reset_base(result,hreg2,0,ref.alignment);
end;