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

Use longint type instead of AWord for Initial parameter in CalcExecutionWeigths (to avoid range error for avr compiler)

Browse Source 
git-svn-id: trunk@40104 -
This commit is contained in:
pierre 2018-10-31 10:21:51 +00:00
parent 7a07f848e8
commit 8cd55d4603
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/optutils.pas
View File

@ -49,7 +49,7 @@ unit optutils;
procedure CalcDefSum(p : tnode);
{ calculates/estimates the field execution weight of optinfo }
procedure CalcExecutionWeights(p : tnode;Initial : AWord = 100);
procedure CalcExecutionWeights(p : tnode;Initial : longint = 100);
{ returns true, if n is a valid node and has life info }
function has_life_info(n : tnode) : boolean;
@ -359,12 +359,12 @@ unit optutils;
function SetExecutionWeight(var n: tnode; arg: pointer): foreachnoderesult;
var
Weight : AWord;
Weight : longint;
i : Integer;
begin
Result:=fen_false;
n.allocoptinfo;
Weight:=max(PAWord(arg)^,1);
Weight:=max(plongint(arg)^,1);
case n.nodetype of
casen:
begin
@ -393,7 +393,7 @@ unit optutils;
end;
procedure CalcExecutionWeights(p : tnode;Initial : AWord = 100);
procedure CalcExecutionWeights(p : tnode;Initial : longint = 100);
begin
if assigned(p) then
foreachnodestatic(pm_postprocess,p,@SetExecutionWeight,Pointer(@Initial));