paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-30 19:40:08 +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; defsum : tdfaset;
avail : tdfaset; avail : tdfaset;
{ estimation, how often the node is executed per subroutine call times 100, calculated by optutils.CalcExecutionWeight } { estimation, how often the node is executed per subroutine call times 100, calculated by optutils.CalcExecutionWeight }
executionweight : aword; executionweight : longint;
end; end;
poptinfo = ^toptinfo; poptinfo = ^toptinfo;

2
compiler/pass_2.pas
View File

@ -194,7 +194,7 @@ implementation
codegenerror:=false; codegenerror:=false;
oldexecutionweight:=cg.executionweight; oldexecutionweight:=cg.executionweight;
if assigned(p.optinfo) then 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 else
cg.executionweight:=100; cg.executionweight:=100;
{$ifdef EXTDEBUG} {$ifdef EXTDEBUG}