blob: 4d33faa51986ba62b63b881af3a6965544526699 (
plain)
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;
|