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

* synchronized with trunk

Browse Source 
git-svn-id: branches/z80@44723 -
This commit is contained in:
nickysn 2020-04-14 22:32:54 +00:00
commit fa32887942
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/aarch64/cgcpu.pas
View File

@ -689,8 +689,8 @@ implementation
begin begin
href:=ref; href:=ref;
inc(href.offset,tcgsize2size[size]-1); inc(href.offset,tcgsize2size[size]-1);
if (tcgsize2size[size]>1) and (ref.alignment=1) and (simple_ref_type(A_STP,OS_8,PF_None,ref)=sr_simple) and if (tcgsize2size[size]>1) and (ref.alignment=1) and (simple_ref_type(A_STUR,OS_8,PF_None,ref)=sr_simple) and
(simple_ref_type(A_STP,OS_8,PF_None,href)=sr_simple) then (simple_ref_type(A_STUR,OS_8,PF_None,href)=sr_simple) then
begin begin
href:=ref; href:=ref;
for i:=0 to tcgsize2size[size]-1 do for i:=0 to tcgsize2size[size]-1 do