paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 00:59:30 +02: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
with reginfo[supreg] do
begin
if aweight>weight then
weight:=aweight;
// if aweight>weight then
inc(weight,aweight);
if (live_range_direction=rad_forward) then
begin
if not assigned(live_start) then