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

* renamed sum -> defsum to avoid confusion with usesum

Browse Source 
git-svn-id: trunk@43905 -
This commit is contained in:
florian 2020-01-10 21:34:30 +00:00
parent b5659df425
commit 30e186be78
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

@ -343,12 +343,12 @@ unit optutils;
end; end;
var var
sum : TDFASet; defsum : TDFASet;
function adddef(var n: tnode; arg: pointer): foreachnoderesult; function adddef(var n: tnode; arg: pointer): foreachnoderesult;
begin begin
if assigned(n.optinfo) then if assigned(n.optinfo) then
DFASetIncludeSet(sum,n.optinfo^.def); DFASetIncludeSet(defsum,n.optinfo^.def);
Result:=fen_false; Result:=fen_false;
end; end;
@ -358,9 +358,9 @@ unit optutils;
p.allocoptinfo; p.allocoptinfo;
if not assigned(p.optinfo^.defsum) then if not assigned(p.optinfo^.defsum) then
begin begin
sum:=nil; defsum:=nil;
foreachnodestatic(pm_postprocess,p,@adddef,nil); foreachnodestatic(pm_postprocess,p,@adddef,nil);
p.optinfo^.defsum:=sum; p.optinfo^.defsum:=defsum;
end; end;
end; end;