src/vhdl/psl-errors.ads


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

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;