grt-errors: remove error_hook (was unused)

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;