diff options
Diffstat (limited to 'src/vhdl/errorout.ads')
| -rw-r--r-- | src/vhdl/errorout.ads | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/vhdl/errorout.ads b/src/vhdl/errorout.ads index 4b1ed23ee..793c7a36f 100644 --- a/src/vhdl/errorout.ads +++ b/src/vhdl/errorout.ads @@ -24,6 +24,10 @@ package Errorout is Parse_Error: exception; Compilation_Error: exception; + -- Set the program name, used in error messages for options. Not displayed + -- if not initialized. + procedure Set_Program_Name (Name : String); + -- This kind can't be handled. --procedure Error_Kind (Msg: String; Kind: Iir_Kind); procedure Error_Kind (Msg: String; An_Iir: in Iir); |