diff options
Diffstat (limited to 'src/vhdl/vhdl-errors.ads')
-rw-r--r-- | src/vhdl/vhdl-errors.ads | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/vhdl/vhdl-errors.ads b/src/vhdl/vhdl-errors.ads index 97d38e7d6..98b8f1c9e 100644 --- a/src/vhdl/vhdl-errors.ads +++ b/src/vhdl/vhdl-errors.ads @@ -21,16 +21,17 @@ with Vhdl.Nodes; use Vhdl.Nodes; with Vhdl.Tokens; package Vhdl.Errors is + -- Register handlers so that errors can be handled. + procedure Initialize; + -- This kind can't be handled. procedure Error_Kind (Msg: String; N : Iir); procedure Error_Kind (Msg: String; Def : Iir_Predefined_Functions); pragma No_Return (Error_Kind); -- Conversions - function "+" (V : Iir) return Earg_Type - renames Errorout.Make_Earg_Vhdl_Node; - function "+" (V : Vhdl.Tokens.Token_Type) return Earg_Type - renames Errorout.Make_Earg_Vhdl_Token; + function "+" (V : Iir) return Earg_Type; + function "+" (V : Vhdl.Tokens.Token_Type) return Earg_Type; -- Convert location. function "+" (L : Iir) return Location_Type; |