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

* AVR: tcgavr.normalize_ref must always load the reference into tmpreg

Browse Source 
git-svn-id: trunk@43986 -
This commit is contained in:
florian 2020-01-19 15:55:23 +00:00
parent 26eae3672b
commit f629fa1bb9
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/avr/cgcpu.pas
View File

@ -1087,7 +1087,6 @@ unit cgcpu;
function tcgavr.normalize_ref(list:TAsmList;ref: treference;tmpreg : tregister) : treference;
var
tmpref : treference;
l : tasmlabel;
@ -1100,9 +1099,6 @@ unit cgcpu;
{ Be sure to have a base register }
if (ref.base=NR_NO) then
begin
{ only symbol+offset? }
if ref.index=NR_NO then
exit;
ref.base:=ref.index;
ref.index:=NR_NO;
end;
@ -1190,7 +1186,9 @@ unit cgcpu;
emit_mov(list,GetNextReg(tmpreg),GetNextReg(ref.index));
ref.base:=tmpreg;
ref.index:=NR_NO;
end;
end
else
Internalerror(2020011901);
Result:=ref;
end;