aboutsummaryrefslogtreecommitdiffstats
path: root/src/synth/synth-stmts.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/synth/synth-stmts.adb')
-rw-r--r--src/synth/synth-stmts.adb4
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);