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

* explicitly reset successor if noreturn is set

Browse Source 
git-svn-id: trunk@49487 -
(cherry picked from commit a988c0fab1)
This commit is contained in:
florian 2021-06-06 20:33:09 +00:00
parent 68766018ea
commit 078a6c31c9
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/optutils.pas
View File

@ -295,7 +295,9 @@ unit optutils;
begin
{ not sure if this is enough (FK) }
result:=p;
if not(cnf_call_never_returns in tcallnode(p).callnodeflags) then
if cnf_call_never_returns in tcallnode(p).callnodeflags then
p.successor:=nil
else
p.successor:=succ;
end;
inlinen: