paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-23 16:21:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed writing extended registers in references

Browse Source 
git-svn-id: trunk@29933 -
This commit is contained in:
Jonas Maebe 2015-02-23 22:53:47 +00:00
parent 7fc9d775df
commit f54ea490dd
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/aarch64/agcpugas.pas
View File

@ -123,9 +123,13 @@ unit agcpugas;
case ref.shiftmode of case ref.shiftmode of
SM_None: ; SM_None: ;
SM_LSL, SM_LSL,
SM_UXTB, SM_UXTH, SM_UXTW, SM_UXTX, SM_UXTW, SM_UXTX, SM_SXTW, SM_SXTX:
SM_SXTB, SM_SXTH, SM_SXTW, SM_SXTX: begin
result:=result+', lsl #'+tostr(ref.shiftimm); result:=result+', '+gas_shiftmode2str[ref.shiftmode];
if (ref.shiftmode=SM_LSL) or
(ref.shiftimm<>0) then
result:=result+' #'+tostr(ref.shiftimm);
end
else else
internalerror(2014121505); internalerror(2014121505);
end; end;