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

* explicitly reset successor if noreturn is set

Browse Source 
git-svn-id: trunk@49487 -
This commit is contained in:
florian 2021-06-06 20:33:09 +00:00
parent 2b3edb2c53
commit a988c0fab1
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

@ -307,7 +307,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: