diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-05-31 18:18:00 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-05-31 18:18:00 +0200 |
commit | 91670c3cfc3483b92379c544e7c95efb61cb3ae2 (patch) | |
tree | b5107e0adc7023ab657f7e201ccff6d60a696a74 /src/grt | |
parent | 755396221a5338a21b22220d8aff4736339d5bb8 (diff) | |
download | ghdl-91670c3cfc3483b92379c544e7c95efb61cb3ae2.tar.gz ghdl-91670c3cfc3483b92379c544e7c95efb61cb3ae2.tar.bz2 ghdl-91670c3cfc3483b92379c544e7c95efb61cb3ae2.zip |
grt: call finalizer after std.env.finish/stop. For #1347
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; |