diff options
Diffstat (limited to 'translate/grt/grt-errors.ads')
| -rw-r--r-- | translate/grt/grt-errors.ads | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/translate/grt/grt-errors.ads b/translate/grt/grt-errors.ads index ee92cb987..483ceab67 100644 --- a/translate/grt/grt-errors.ads +++ b/translate/grt/grt-errors.ads @@ -62,6 +62,11 @@ package Grt.Errors is -- Display an error message for an overflow. procedure Grt_Overflow_Error; + -- Called at end of error message. Central point for failures. + procedure Fatal_Error; + pragma No_Return (Fatal_Error); + pragma Export (C, Fatal_Error, "__ghdl_fatal"); + -- Hook called in case of error. Error_Hook : Grt.Hooks.Proc_Hook_Type := null; |