From 2c5ce4b3aab14d67e97623e8dfe31cf27a043e7c Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 10 May 2019 06:32:11 +0200
Subject: Extract psl-errors from errorout.

---
 src/errorout.adb | 9 ---------
 1 file changed, 9 deletions(-)

(limited to 'src/errorout.adb')

diff --git a/src/errorout.adb b/src/errorout.adb
index 1b022391d..d921a9040 100644
--- a/src/errorout.adb
+++ b/src/errorout.adb
@@ -16,7 +16,6 @@
 --  Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 --  02111-1307, USA.
 
-with Logging; use Logging;
 with Vhdl.Scanner;
 with Name_Table;
 with Files_Map; use Files_Map;
@@ -27,14 +26,6 @@ with Str_Table;
 with Vhdl.Errors; use Vhdl.Errors;
 
 package body Errorout is
-   procedure Error_Kind (Msg : String; N : PSL_Node) is
-   begin
-      Log (Msg);
-      Log (": cannot handle ");
-      Log_Line (PSL.Nodes.Nkind'Image (PSL.Nodes.Get_Kind (N)));
-      raise Internal_Error;
-   end Error_Kind;
-
    function Natural_Image (Val: Natural) return String
    is
       Str: constant String := Natural'Image (Val);
-- 
cgit v1.2.3