Extract psl-errors from errorout.

1 files changed, 0 insertions, 15 deletions

diff --git a/src/vhdl/psl-errors.ads b/src/vhdl/psl-errors.ads
deleted file mode 100644
index 4d33faa51..000000000
--- a/src/vhdl/psl-errors.ads
+++ /dev/null
@@ -1,15 +0,0 @@
-with Types; use Types;
-with Errorout; use Errorout;
-with Vhdl.Errors; use Vhdl.Errors;
-with Files_Map;
-
-package PSL.Errors is
-   function Image (Loc : Location_Type; Filename : Boolean := True)
-                  return String renames Files_Map.Image;
-
-   procedure Error_Kind (Msg : String; N : PSL_Node) renames
-     Errorout.Error_Kind;
-
-   procedure Error_Msg_Sem (Msg: String; Loc: PSL_Node)
-     renames Vhdl.Errors.Error_Msg_Sem_1;
-end PSL.Errors;