paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 22:09:32 +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 begin
{ not sure if this is enough (FK) } { not sure if this is enough (FK) }
result:=p; 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; p.successor:=succ;
end; end;
inlinen: inlinen: