paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 18:29:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

* safe an loadaddr for simple references when generating unaligned accesses

Browse Source 
git-svn-id: trunk@6308 -
This commit is contained in:
florian 2007-02-02 22:43:30 +00:00
parent 986a73c12c
commit d0b34fef46
1 changed files with 25 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
compiler/arm/cgcpu.pas
View File

@ -853,9 +853,18 @@ unit cgcpu;
case FromSize of
OS_16,OS_S16:
begin
tmpreg3:=getintregister(list,OS_INT);
a_loadaddr_ref_reg(list,ref,tmpreg3);
reference_reset_base(usedtmpref,tmpreg3,0);
{ only complicated references need an extra loadaddr }
if assigned(ref.symbol) or
(ref.offset<-4095) or
(ref.offset>4094) then
begin
tmpreg3:=getintregister(list,OS_INT);
a_loadaddr_ref_reg(list,ref,tmpreg3);
reference_reset_base(usedtmpref,tmpreg3,0);
end
else
usedtmpref:=ref;
shifterop_reset(so);so.shiftmode:=SM_LSL;so.shiftimm:=8;
tmpreg:=getintregister(list,OS_INT);
a_internal_load_ref_reg(list,OS_8,OS_8,usedtmpref,tmpreg);
@ -871,10 +880,20 @@ unit cgcpu;
begin
tmpreg:=getintregister(list,OS_INT);
tmpreg2:=getintregister(list,OS_INT);
tmpreg3:=getintregister(list,OS_INT);
{ only complicated references need an extra loadaddr }
if assigned(ref.symbol) or
(ref.offset<-4095) or
(ref.offset>4092) then
begin
tmpreg3:=getintregister(list,OS_INT);
a_loadaddr_ref_reg(list,ref,tmpreg3);
reference_reset_base(usedtmpref,tmpreg3,0);
end
else
usedtmpref:=ref;
shifterop_reset(so);so.shiftmode:=SM_LSL;so.shiftimm:=8;
a_loadaddr_ref_reg(list,ref,tmpreg3);
reference_reset_base(usedtmpref,tmpreg3,0);
a_internal_load_ref_reg(list,OS_8,OS_8,usedtmpref,reg);
inc(usedtmpref.offset);
a_internal_load_ref_reg(list,OS_8,OS_8,usedtmpref,tmpreg);