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

* don't use ADD in make_direct_ref(), as the flags may be live

Browse Source 
git-svn-id: trunk@34547 -
This commit is contained in:
Jonas Maebe 2016-09-20 21:43:45 +00:00
parent a9073cb50b
commit e8c9541c04
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/x86/cgx86.pas
View File

@ -658,7 +658,11 @@ unit cgx86;
reference_reset_symbol(href,ref.symbol,0,sizeof(pint)); reference_reset_symbol(href,ref.symbol,0,sizeof(pint));
a_op_ref_reg(list,OP_MOVE,OS_ADDR,href,hreg); a_op_ref_reg(list,OP_MOVE,OS_ADDR,href,hreg);
if ref.base<>NR_NO then if ref.base<>NR_NO then
a_op_reg_reg(list,OP_ADD,OS_ADDR,ref.base,hreg); begin
{ don't use ADD, the flags may contain a value }
reference_reset_base(href,ref.base,0,ref.alignment);
a_loadaddr_ref_reg(list,href,hreg);
end;
ref.symbol:=nil; ref.symbol:=nil;
ref.base:=hreg; ref.base:=hreg;
end; end;