diff options
Diffstat (limited to 'src/grt/grt-main.adb')
| -rw-r--r-- | src/grt/grt-main.adb | 5 |
1 files changed, 5 insertions, 0 deletions
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 |