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

* ti8086vecnode.update_reference_reg_mul: remove the segment before calling

Browse Source 
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:
nickysn 2014-05-01 19:39:52 +00:00
parent 2fa066b003
commit 38aec68d6f
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/i8086/n8086mem.pas
View File

@ -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;