mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-09 10:46:32 +02:00
* fixed reuse of the same register for different types in
a_loadaddr_ref_reg() git-svn-id: trunk@30718 -
This commit is contained in:
parent
c3233b21e8
commit
491d9cfff1
@ -1521,6 +1521,7 @@ implementation
|
||||
a_op_const_reg_reg(list,OP_ADD,ptruinttype,ref.offset,hreg1,hreg2);
|
||||
hreg1:=hreg2;
|
||||
end;
|
||||
hreg2:=getaddressregister(list,getpointerdef(def));
|
||||
a_load_reg_reg(list,ptruinttype,getpointerdef(def),hreg1,hreg2);
|
||||
reference_reset_base(result,getpointerdef(def),hreg2,0,ref.alignment);
|
||||
end;
|
||||
|
Loading…
Reference in New Issue
Block a user