Rework errors handling, to have a more generic framework.

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;