From 368b69c1a09413795a1409d6b54d02139d9fa519 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 19 Mar 2016 07:16:58 +0100
Subject: Always execute finalizers and end hooks after simulation.

Fix for issue45.
---
 src/grt/grt-main.adb | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/grt/grt-main.adb')

diff --git a/src/grt/grt-main.adb b/src/grt/grt-main.adb
index 4b2614aad..f5006ef6b 100644
--- a/src/grt/grt-main.adb
+++ b/src/grt/grt-main.adb
@@ -109,6 +109,8 @@ package body Grt.Main is
       use Grt.Errors;
       Stop : Boolean;
       Status : Integer;
+      Status1 : Integer;
+      pragma Unreferenced (Status1);
    begin
       --  Register modules.
       --  They may insert hooks.
@@ -172,6 +174,9 @@ package body Grt.Main is
 
          --  Do the simulation.
          Status := Run_Through_Longjump (Grt.Processes.Simulation'Access);
+
+         Status1 := Run_Through_Longjump
+           (Grt.Processes.Finalize_Simulation'Access);
       end if;
 
       if Flag_Stats then
-- 
cgit v1.2.3