diff options
| -rw-r--r-- | src/grt/grt-errors.adb | 10 | ||||
| -rw-r--r-- | src/grt/grt-errors.ads | 4 |
2 files changed, 0 insertions, 14 deletions
diff --git a/src/grt/grt-errors.adb b/src/grt/grt-errors.adb index f266f4b0a..11eb1a04c 100644 --- a/src/grt/grt-errors.adb +++ b/src/grt/grt-errors.adb @@ -24,7 +24,6 @@ with Grt.Stdio; use Grt.Stdio; with Grt.Astdio; use Grt.Astdio; with Grt.Astdio.Vhdl; use Grt.Astdio.Vhdl; with Grt.Options; use Grt.Options; -with Grt.Hooks; use Grt.Hooks; package body Grt.Errors is -- Output stream to send error messages @@ -66,15 +65,6 @@ package body Grt.Errors is procedure Fatal_Error is begin - if Error_Hook /= null then - -- Call the hook, but avoid infinite loop by reseting it. - declare - Current_Hook : constant Proc_Hook_Type := Error_Hook; - begin - Error_Hook := null; - Current_Hook.all; - end; - end if; Maybe_Return_Via_Longjump (-1); if Expect_Failure then Ghdl_Exit (0); diff --git a/src/grt/grt-errors.ads b/src/grt/grt-errors.ads index 0df4773b8..9e88f6265 100644 --- a/src/grt/grt-errors.ads +++ b/src/grt/grt-errors.ads @@ -22,7 +22,6 @@ -- covered by the GNU Public License. with Grt.Types; use Grt.Types; with Grt.Vhdl_Types; use Grt.Vhdl_Types; -with Grt.Hooks; with Grt.Stdio; package Grt.Errors is @@ -120,9 +119,6 @@ package Grt.Errors is -- Stop/finish request from user (via std.env). Run_Stop : constant Integer := 5; - -- Hook called in case of error. - Error_Hook : Grt.Hooks.Proc_Hook_Type := null; - -- If true, an error is expected and the exit status is inverted. Expect_Failure : Boolean := False; |