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

* be more carefull with unaligned load optimization

Browse Source 
git-svn-id: trunk@6356 -
This commit is contained in:
florian 2007-02-07 17:43:56 +00:00
parent e70c6df440
commit eb8b2fb138
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/arm/cgcpu.pas
View File

@ -857,7 +857,10 @@ unit cgcpu;
if assigned(ref.symbol) or if assigned(ref.symbol) or
(ref.index<>NR_NO) or (ref.index<>NR_NO) or
(ref.offset<-4095) or (ref.offset<-4095) or
(ref.offset>4094) then (ref.offset>4094) or
{ sometimes the compiler reused registers }
(reg=ref.index) or
(reg=ref.base) then
begin begin
tmpreg3:=getintregister(list,OS_INT); tmpreg3:=getintregister(list,OS_INT);
a_loadaddr_ref_reg(list,ref,tmpreg3); a_loadaddr_ref_reg(list,ref,tmpreg3);
@ -886,7 +889,10 @@ unit cgcpu;
if assigned(ref.symbol) or if assigned(ref.symbol) or
(ref.index<>NR_NO) or (ref.index<>NR_NO) or
(ref.offset<-4095) or (ref.offset<-4095) or
(ref.offset>4092) then (ref.offset>4092) or
{ sometimes the compiler reused registers }
(reg=ref.index) or
(reg=ref.base) then
begin begin
tmpreg3:=getintregister(list,OS_INT); tmpreg3:=getintregister(list,OS_INT);
a_loadaddr_ref_reg(list,ref,tmpreg3); a_loadaddr_ref_reg(list,ref,tmpreg3);

2
compiler/ncgmem.pas
View File

@ -375,7 +375,7 @@ implementation
(tabstractrecordsymtable(vs.owner).usefieldalignment=1) then (tabstractrecordsymtable(vs.owner).usefieldalignment=1) then
location.reference.alignment:=1; location.reference.alignment:=1;
{$endif SUPPORT_UNALIGNED} {$endif SUPPORT_UNALIGNED}
end end
else if (vs.fieldoffset mod 8 = 0) and else if (vs.fieldoffset mod 8 = 0) and
(resultdef.packedbitsize mod 8 = 0) and (resultdef.packedbitsize mod 8 = 0) and