diff options
Diffstat (limited to 'src/vhdl/errorout.ads')
| -rw-r--r-- | src/vhdl/errorout.ads | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/vhdl/errorout.ads b/src/vhdl/errorout.ads index eb9c2a7a3..cdbb482a2 100644 --- a/src/vhdl/errorout.ads +++ b/src/vhdl/errorout.ads @@ -23,15 +23,17 @@ package Errorout is Option_Error: exception; Compilation_Error: exception; - -- This kind can't be handled. - --procedure Error_Kind (Msg: String; Kind: Iir_Kind); + -- This kind can't be handled. procedure Error_Kind (Msg: String; An_Iir: in Iir); procedure Error_Kind (Msg: String; Def : Iir_Predefined_Functions); procedure Error_Kind (Msg : String; N : PSL_Node); pragma No_Return (Error_Kind); - -- The number of errors (ie, number of calls to error_msg*). - Nbr_Errors: Natural := 0; + -- The number of errors (ie, number of calls to error_msg*). + Nbr_Errors : Natural := 0; + + -- Maximum number of errors, before silent them. + Max_Nbr_Errors : constant Natural := 100; type Msgid_Type is (-- Any note |