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

* "on" nodes inherit the exception catching state from the "try"

Browse Source 
git-svn-id: branches/debug_eh@42194 -
This commit is contained in:
Jonas Maebe 2019-06-08 20:17:01 +00:00
parent 3f2578a3e3
commit d0be4f11b8
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/ncgflw.pas
View File

@ -633,7 +633,7 @@ implementation
current_procinfo.CurrBreakLabel:=breakexceptlabel; current_procinfo.CurrBreakLabel:=breakexceptlabel;
end; end;
flowcontrol:=[fc_inflowcontrol]; flowcontrol:=[fc_inflowcontrol]+trystate.oldflowcontrol*[fc_catching_exceptions];
{ on statements } { on statements }
if assigned(right) then if assigned(right) then
secondpass(right); secondpass(right);