From 78b29a7a47636cb2fda1112f3e2ec8167c3e7d66 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 21 Aug 2022 10:41:03 +0200
Subject: grt-errors: remove error_hook (was unused)

---
 src/grt/grt-errors.adb | 10 ----------
 src/grt/grt-errors.ads |  4 ----
 2 files changed, 14 deletions(-)

(limited to 'src/grt')

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;
 
-- 
cgit v1.2.3