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

* override tcgvecnode.update_reference_reg_mul for i8086 and add code that

Browse Source 
preserves the reference segment (because reference_reset_base, which is
  sometimes used by the base method, kills the segment)

git-svn-id: trunk@27480 -
This commit is contained in:
nickysn 2014-04-05 14:02:52 +00:00
parent 7a873f495d
commit f00f7d6ee7
1 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/i8086/n8086mem.pas
View File

@ -41,6 +41,11 @@ interface
procedure pass_generate_code;override;
end;
{ tx86vecnode doesn't work for i8086, so we inherit tcgvecnode }
ti8086vecnode = class(tcgvecnode)
procedure update_reference_reg_mul(maybe_const_reg:tregister;l:aint);override;
end;
implementation
uses
@ -161,10 +166,21 @@ implementation
inherited pass_generate_code;
end;
{*****************************************************************************
TI8086VECNODE
*****************************************************************************}
procedure ti8086vecnode.update_reference_reg_mul(maybe_const_reg:tregister;l:aint);
var
saveseg: TRegister;
begin
saveseg:=location.reference.segment;
inherited update_reference_reg_mul(maybe_const_reg,l);
location.reference.segment:=saveseg;
end;
begin
caddrnode:=ti8086addrnode;
cderefnode:=ti8086derefnode;
{ override tx86vecnode, which doesn't work for i8086 }
cvecnode:=tcgvecnode;
cvecnode:=ti8086vecnode;
end.