src/vhdl/psl-errors.ads


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

with Types; use Types;
with Errorout;
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_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;