paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 16:59:45 +01:00
Code Issues Packages Projects Releases Wiki Activity

* removed {$ifndef i8086} in tx86vecnode, instead reset cvecnode to

Browse Source 
tcgvecnode in the n8086mem initcode

git-svn-id: trunk@27360 -
This commit is contained in:
Jonas Maebe 2014-03-29 22:31:49 +00:00
parent 57859963d6
commit b5fd71c3b9
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/i8086/n8086mem.pas
View File

@ -129,4 +129,6 @@ implementation
begin
cderefnode:=ti8086derefnode;
{ override tx86vecnode, which doesn't work for i8086 }
cvecnode:=tcgvecnode;
end.

4
compiler/x86/nx86mem.pas
View File

@ -35,9 +35,7 @@ interface
end;
tx86vecnode = class(tcgvecnode)
{$ifndef i8086}
procedure update_reference_reg_mul(maybe_const_reg:tregister;l:aint);override;
{$endif not i8086}
end;
implementation
@ -80,7 +78,6 @@ implementation
TX86VECNODE
*****************************************************************************}
{$ifndef i8086}
{ this routine must, like any other routine, not change the contents }
{ of base/index registers of references, as these may be regvars. }
{ The register allocator can coalesce one LOC_REGISTER being moved }
@ -140,7 +137,6 @@ implementation
end;
location.reference.index:=hreg;
end;
{$endif not i8086}
begin
cderefnode:=tx86derefnode;