1 files changed, 10 insertions, 1 deletions
diff --git a/src/vhdl/psl-errors.ads b/src/vhdl/psl-errors.ads
index 88239a844..16aae7772 100644
--- a/src/vhdl/psl-errors.ads
+++ b/src/vhdl/psl-errors.ads
@@ -1,5 +1,6 @@
+with PSL.Nodes;
 with Types; use Types;
-with Errorout;
+with Errorout; use Errorout;
 with Files_Map;
 
 package PSL.Errors is
@@ -11,6 +12,14 @@ package PSL.Errors is
 
    procedure Error_Msg_Parse (Msg: String)
      renames Errorout.Error_Msg_Parse_1;
+
+   procedure Error_Msg_Parse
+     (Loc : Location_Type; Msg: String; Args : Earg_Arr := No_Eargs)
+     renames Errorout.Error_Msg_Parse;
+
    procedure Error_Msg_Sem (Msg: String; Loc: PSL_Node)
      renames Errorout.Error_Msg_Sem_1;
+
+   function "+" (N : PSL_Node) return Location_Type
+     renames PSL.Nodes.Get_Location;
 end PSL.Errors;