diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-06-14 17:16:41 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-06-14 17:16:41 +0200 |
| commit | 0ae183d0090889641eefd0e8ccc8924d33fcc5f4 (patch) | |
| tree | 0212624c7151272a6cab7d3e3dd23ef981bb27b7 /translate/grt | |
| parent | 69f1a0ac6017b60d853ca8d5350d69ccd697920b (diff) | |
| download | ghdl-0ae183d0090889641eefd0e8ccc8924d33fcc5f4.tar.gz ghdl-0ae183d0090889641eefd0e8ccc8924d33fcc5f4.tar.bz2 ghdl-0ae183d0090889641eefd0e8ccc8924d33fcc5f4.zip | |
grt-errors: export fatal_error.
Diffstat (limited to 'translate/grt')
| -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 c4eb30b1b..2d4d8f689 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 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; |