paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 05:40:28 +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;
var
sum : TDFASet;
defsum : TDFASet;
function adddef(var n: tnode; arg: pointer): foreachnoderesult;
begin
if assigned(n.optinfo) then
DFASetIncludeSet(sum,n.optinfo^.def);
DFASetIncludeSet(defsum,n.optinfo^.def);
Result:=fen_false;
end;
@ -358,9 +358,9 @@ unit optutils;
p.allocoptinfo;
if not assigned(p.optinfo^.defsum) then
begin
sum:=nil;
defsum:=nil;
foreachnodestatic(pm_postprocess,p,@adddef,nil);
p.optinfo^.defsum:=sum;
p.optinfo^.defsum:=defsum;
end;
end;