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

* accumulate register weight instead of taking only the maximum

Browse Source 
git-svn-id: trunk@25433 -
This commit is contained in:
florian 2013-09-07 17:44:41 +00:00
parent cde2d1b8ee
commit dc567acc9a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/rgobj.pas
View File

@ -773,8 +773,8 @@ unit rgobj;
if supreg>=first_imaginary then if supreg>=first_imaginary then
with reginfo[supreg] do with reginfo[supreg] do
begin begin
if aweight>weight then // if aweight>weight then
weight:=aweight; inc(weight,aweight);
if (live_range_direction=rad_forward) then if (live_range_direction=rad_forward) then
begin begin
if not assigned(live_start) then if not assigned(live_start) then