diff options
Diffstat (limited to 'src/synth/synth-stmts.adb')
| -rw-r--r-- | src/synth/synth-stmts.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb index 952b19289..aa1a737ac 100644 --- a/src/synth/synth-stmts.adb +++ b/src/synth/synth-stmts.adb @@ -1842,6 +1842,10 @@ package body Synth.Stmts is Set_Error (Syn_Inst); end if; + if Debugger.Flag_Need_Debug then + Debugger.Debug_Leave (Sub_Inst); + end if; + Free_Instance (Sub_Inst); Areapools.Release (Area_Mark, Instance_Pool.all); |