diff options
Diffstat (limited to 'src/grt')
| -rw-r--r-- | src/grt/grt-main.adb | 2 | ||||
| -rw-r--r-- | src/grt/grt-processes.adb | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/src/grt/grt-main.adb b/src/grt/grt-main.adb index 29a12cb6b..1aceb39e7 100644 --- a/src/grt/grt-main.adb +++ b/src/grt/grt-main.adb @@ -171,6 +171,8 @@ package body Grt.Main is procedure Run_Finish (Status : Integer) is begin + Grt.Processes.Simulation_Finish; + Grt.Hooks.Call_Finish_Hooks; if Flag_Stats then diff --git a/src/grt/grt-processes.adb b/src/grt/grt-processes.adb index f1de1f03c..f19d9bfa2 100644 --- a/src/grt/grt-processes.adb +++ b/src/grt/grt-processes.adb @@ -1249,7 +1249,7 @@ package body Grt.Processes is Status := Simulation_Main_Loop; - Simulation_Finish; + -- Note: the caller must call Simulation_Finish. return Status; end Simulation; |