paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-26 02:38:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* always create a resultnode, also for procedures

Browse Source 
git-svn-id: trunk@25968 -
This commit is contained in:
florian 2013-11-06 21:10:40 +00:00
parent 1fb3c2e0c2
commit 0a762e416f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/optdfa.pas
View File

@ -564,7 +564,7 @@ unit optdfa;
resultnode.optinfo^.life:=resultnode.optinfo^.use; resultnode.optinfo^.life:=resultnode.optinfo^.use;
end end
else else
resultnode:=nil; resultnode:=cnothingnode.create;
repeat repeat
inc(runs); inc(runs);