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/grt-errors.adb | |
| 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/grt-errors.adb')
| -rw-r--r-- | translate/grt/grt-errors.adb | 4 |
1 files changed, 0 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); |