mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-17 18:49:15 +02:00
* ti8086vecnode.update_reference_reg_mul: remove the segment before calling
base, because base may in some cases call cg.a_loadaddr_ref_reg, which will overwrite the next register, if the source reference contains a segment git-svn-id: trunk@27713 -
This commit is contained in:
parent
2fa066b003
commit
38aec68d6f
@ -175,6 +175,7 @@ implementation
|
|||||||
saveseg: TRegister;
|
saveseg: TRegister;
|
||||||
begin
|
begin
|
||||||
saveseg:=location.reference.segment;
|
saveseg:=location.reference.segment;
|
||||||
|
location.reference.segment:=NR_NO;
|
||||||
inherited update_reference_reg_mul(maybe_const_reg,l);
|
inherited update_reference_reg_mul(maybe_const_reg,l);
|
||||||
location.reference.segment:=saveseg;
|
location.reference.segment:=saveseg;
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user