1 files changed, 9 insertions, 4 deletions
diff --git a/src/grt/grt-processes.adb b/src/grt/grt-processes.adb
index 242a9e595..a105e755d 100644
--- a/src/grt/grt-processes.adb
+++ b/src/grt/grt-processes.adb
@@ -1119,10 +1119,6 @@ package body Grt.Processes is
       if Nbr_Threads /= 1 then
          Threads.Finish;
       end if;
-
-      Call_Finalizers;
-
-      Grt.Hooks.Call_Finish_Hooks;
    end Simulation_Finish;
 
    function Simulation return Integer
@@ -1138,4 +1134,13 @@ package body Grt.Processes is
       return Status;
    end Simulation;
 
+   function Finalize_Simulation return Integer is
+   begin
+      Call_Finalizers;
+
+      Grt.Hooks.Call_Finish_Hooks;
+
+      return Run_Finished;
+   end Finalize_Simulation;
+
 end Grt.Processes;