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

* fixed optimizer for new treference fields

Browse Source
This commit is contained in:
Jonas Maebe 2004-02-27 19:55:23 +00:00
parent 3dc9af4d1f
commit 756dd463ff
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/i386/daopt386.pas
View File

@ -654,7 +654,8 @@ begin
RegsEquivalent(r1.base, r2.base, reginfo, opact) and
RegsEquivalent(r1.index, r2.index, reginfo, opact) and
(r1.segment = r2.segment) and (r1.scalefactor = r2.scalefactor) and
(r1.symbol = r2.symbol);
(r1.symbol = r2.symbol) and (r1.refaddr = r2.refaddr) and
(r1.relsymbol = r2.relsymbol);
end;
@ -664,7 +665,8 @@ begin
(r1.offset = r2.offset) and
(r1.segment = r2.segment) and (r1.base = r2.base) and
(r1.index = r2.index) and (r1.scalefactor = r2.scalefactor) and
(r1.symbol=r2.symbol);
(r1.symbol=r2.symbol) and (r1.refaddr = r2.refaddr) and
(r1.relsymbol = r2.relsymbol);
end;
@ -2709,7 +2711,10 @@ end.
{
$Log$
Revision 1.65 2004-02-27 10:21:05 florian
Revision 1.66 2004-02-27 19:55:23 jonas
* fixed optimizer for new treference fields
Revision 1.65 2004/02/27 10:21:05 florian
* top_symbol killed
+ refaddr to treference added
+ refsymbol to treference added