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

* check for stup instead of stp

Browse Source 
git-svn-id: trunk@44722 -
This commit is contained in:
florian 2020-04-14 20:52:27 +00:00
parent 2276caae24
commit c4b66c89f7
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
href:=ref;
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
(simple_ref_type(A_STP,OS_8,PF_None,href)=sr_simple) then
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_STUR,OS_8,PF_None,href)=sr_simple) then
begin
href:=ref;
for i:=0 to tcgsize2size[size]-1 do