diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-06-24 22:07:30 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-06-25 18:12:07 +0200 |
commit | cd012609781465b65bbe3b1ef8e1fe4fa9c8398d (patch) | |
tree | 3ad4716784b36ec3a990524bc0a530440c8a3d76 /src/errorout.ads | |
parent | 2cc51506353d819639dcfce2d4e9bb9407a67a6d (diff) | |
download | ghdl-cd012609781465b65bbe3b1ef8e1fe4fa9c8398d.tar.gz ghdl-cd012609781465b65bbe3b1ef8e1fe4fa9c8398d.tar.bz2 ghdl-cd012609781465b65bbe3b1ef8e1fe4fa9c8398d.zip |
Error_Msg_Option: do not raise exception.
Diffstat (limited to 'src/errorout.ads')
-rw-r--r-- | src/errorout.ads | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/src/errorout.ads b/src/errorout.ads index 860e663ba..580d09e44 100644 --- a/src/errorout.ads +++ b/src/errorout.ads @@ -20,7 +20,6 @@ with Vhdl.Nodes; with Vhdl.Tokens; package Errorout is - Option_Error: exception; Compilation_Error: exception; -- The number of errors (ie, number of calls to error_msg*). @@ -223,14 +222,10 @@ package Errorout is procedure Report_Start_Group; procedure Report_End_Group; - -- Disp an error, prepended with program name, and raise option_error. + -- Disp an error, prepended with program name. -- This is used for errors before initialisation, such as bad option or -- bad filename. - procedure Error_Msg_Option (Msg: String; Args : Earg_Arr := No_Eargs); - pragma No_Return (Error_Msg_Option); - - -- Same as Error_Msg_Option but do not raise Option_Error. - procedure Error_Msg_Option_NR (Msg: String); + procedure Error_Msg_Option (Msg: String); -- Warn about an option. procedure Warning_Msg_Option (Id : Msgid_Warnings; Msg: String); |