diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-03-19 07:16:58 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-03-19 07:18:48 +0100 |
| commit | 368b69c1a09413795a1409d6b54d02139d9fa519 (patch) | |
| tree | 50817855c64e1e50c5ea9d55176bed6c55a64010 /src/grt/grt-main.adb | |
| parent | 8e97758e77b2a0798bd83f99e72b32db43f0fe0e (diff) | |
| download | ghdl-368b69c1a09413795a1409d6b54d02139d9fa519.tar.gz ghdl-368b69c1a09413795a1409d6b54d02139d9fa519.tar.bz2 ghdl-368b69c1a09413795a1409d6b54d02139d9fa519.zip | |
Always execute finalizers and end hooks after simulation.
Fix for issue45.
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 |