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

* do not reuse a loaded reference for avrtiny in a_op_const*, resolves #38142

Browse Source 
git-svn-id: trunk@47612 -
(cherry picked from commit eb098a3d11)

# Conflicts:
#	compiler/cgobj.pas
This commit is contained in:
florian 2020-11-27 21:16:31 +00:00
parent af4eb12b43
commit d75fb82753
1 changed files with 26 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
compiler/cgobj.pas
View File

@ -583,6 +583,10 @@ implementation
globals,systems,
verbose,paramgr,symsym,
tgobj,cutils,procinfo;
globals,systems,fmodule,
verbose,paramgr,symsym,symtable,
tgobj,cutils,procinfo,
cpuinfo;
{*****************************************************************************
basic functionallity
@ -1943,6 +1947,17 @@ implementation
var
tmpreg : tregister;
begin
if assigned(ref.symbol)
{ for avrtiny, the code generator generates a ref which is Z relative and while using it,
Z is changed, so the following code breaks }
{$ifdef avr}and not(CPUAVR_16_REGS in cpu_capabilities[current_settings.cputype]){$endif avr} then
begin
tmpreg:=getaddressregister(list);
a_loadaddr_ref_reg(list,ref,tmpreg);
reference_reset_base(tmpref,tmpreg,0,ref.temppos,ref.alignment,[]);
end
else
tmpref:=ref;
tmpreg:=getintregister(list,size);
a_load_ref_reg(list,size,size,ref,tmpreg);
a_op_const_reg(list,op,size,a,tmpreg);
@ -1967,8 +1982,17 @@ implementation
var
tmpreg : tregister;
begin
tmpreg:=getintregister(list,size);
a_load_ref_reg(list,size,size,ref,tmpreg);
if assigned(ref.symbol)
{ for avrtiny, the code generator generates a ref which is Z relative and while using it,
Z is changed, so the following code breaks }
{$ifdef avr}and not(CPUAVR_16_REGS in cpu_capabilities[current_settings.cputype]){$endif avr} then
begin
tmpreg:=getaddressregister(list);
a_loadaddr_ref_reg(list,ref,tmpreg);
reference_reset_base(tmpref,tmpreg,0,ref.temppos,ref.alignment,[]);
end
else
tmpref:=ref;
if op in [OP_NEG,OP_NOT] then
begin
if reg<>NR_NO then