1 files changed, 14 insertions, 1 deletions
diff --git a/src/vhdl/psl-errors.ads b/src/vhdl/psl-errors.ads
index e99bb7d..7742dcf 100644
--- a/src/vhdl/psl-errors.ads
+++ b/src/vhdl/psl-errors.ads
@@ -1,3 +1,16 @@
+with Types; use Types;
 with Errorout;
+with Files_Map;
 
-package PSL.Errors renames Errorout;
+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_Parse (Msg: String)
+     renames Errorout.Error_Msg_Parse;
+   procedure Error_Msg_Sem (Msg: String; Loc: PSL_Node)
+     renames Errorout.Error_Msg_Sem;
+end PSL.Errors;