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

Complement commit 40104, by changing type of executionweight in toptinfo record and adapt pass_2 code

Browse Source 
git-svn-id: trunk@40111 -
This commit is contained in:
pierre 2018-10-31 15:47:53 +00:00
parent e5dffebdc7
commit 04fd1a6397
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/optbase.pas
View File

@ -44,7 +44,7 @@ unit optbase;
defsum : tdfaset;
avail : tdfaset;
{ estimation, how often the node is executed per subroutine call times 100, calculated by optutils.CalcExecutionWeight }
executionweight : aword;
executionweight : longint;
end;
poptinfo = ^toptinfo;

2
compiler/pass_2.pas
View File

@ -194,7 +194,7 @@ implementation
codegenerror:=false;
oldexecutionweight:=cg.executionweight;
if assigned(p.optinfo) then
cg.executionweight:=min(p.optinfo^.executionweight,QWord(high(cg.executionweight)))
cg.executionweight:=min(p.optinfo^.executionweight,high(cg.executionweight))
else
cg.executionweight:=100;
{$ifdef EXTDEBUG}