diff options
Diffstat (limited to 'translate/grt/grt-errors.ads')
| -rw-r--r-- | translate/grt/grt-errors.ads | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/translate/grt/grt-errors.ads b/translate/grt/grt-errors.ads index 483ceab..c797a71 100644 --- a/translate/grt/grt-errors.ads +++ b/translate/grt/grt-errors.ads @@ -67,6 +67,9 @@ package Grt.Errors is pragma No_Return (Fatal_Error); pragma Export (C, Fatal_Error, "__ghdl_fatal"); + Exit_Status : Integer := 0; + procedure Exit_Simulation; + -- Hook called in case of error. Error_Hook : Grt.Hooks.Proc_Hook_Type := null; |