diff options
Diffstat (limited to 'avx512-0037785/compiler/ncgbas.pas')
-rw-r--r-- | avx512-0037785/compiler/ncgbas.pas | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/avx512-0037785/compiler/ncgbas.pas b/avx512-0037785/compiler/ncgbas.pas index ccb4b59df0..8088346323 100644 --- a/avx512-0037785/compiler/ncgbas.pas +++ b/avx512-0037785/compiler/ncgbas.pas @@ -443,6 +443,7 @@ interface oldflowcontrol:=flowcontrol; { the nested block will not span an exit statement of the parent } exclude(flowcontrol,fc_exit); + include(flowcontrol,fc_no_direct_exit); end; { do second pass on left node } @@ -468,7 +469,7 @@ interface current_procinfo.CurrExitLabel:=oldexitlabel; { the exit statements inside this block are not exit statements } { out of the parent } - flowcontrol:=oldflowcontrol+(flowcontrol - [fc_exit]); + flowcontrol:=oldflowcontrol+(flowcontrol - [fc_exit,fc_no_direct_exit]); end; end; |