diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-11-26 20:20:52 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-11-26 20:20:52 +0100 |
| commit | b8e0a9f88af799511893c6ff9ad6261f83402255 (patch) | |
| tree | 4ae10559a91cb6ec39378225986a01de2f836d36 /src/vhdl/errorout.ads | |
| parent | 199b61316905bfea44f254e8557ab98c91d0dcca (diff) | |
| download | ghdl-b8e0a9f88af799511893c6ff9ad6261f83402255.tar.gz ghdl-b8e0a9f88af799511893c6ff9ad6261f83402255.tar.bz2 ghdl-b8e0a9f88af799511893c6ff9ad6261f83402255.zip | |
errorout: count max number of errors, limit errors.
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 |