diff options
Diffstat (limited to 'translate')
| -rw-r--r-- | translate/grt/grt-errors.adb | 4 | ||||
| -rw-r--r-- | translate/grt/grt-errors.ads | 5 |
2 files changed, 5 insertions, 4 deletions
diff --git a/translate/grt/grt-errors.adb b/translate/grt/grt-errors.adb index c4eb30b..2d4d8f6 100644 --- a/translate/grt/grt-errors.adb +++ b/translate/grt/grt-errors.adb @@ -28,10 +28,6 @@ with Grt.Options; use Grt.Options; with Grt.Hooks; use Grt.Hooks; package body Grt.Errors is - procedure Fatal_Error; - pragma No_Return (Fatal_Error); - pragma Export (C, Fatal_Error, "__ghdl_fatal"); - -- Called in case of premature exit. -- CODE is 0 for success, 1 for failure. procedure Ghdl_Exit (Code : Integer); diff --git a/translate/grt/grt-errors.ads b/translate/grt/grt-errors.ads index ee92cb9..483ceab 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; |