diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-08-02 09:17:08 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-08-02 09:17:08 +0200 |
| commit | 3c83e47c98bc9e58ca2c231a5b24c3639018c9cc (patch) | |
| tree | f2c0133e26ee413d3c778465c552233905a5db56 /src/vhdl/evaluation.adb | |
| parent | ee0e651d9b3946910d513e6a670453e25e5f014d (diff) | |
| download | ghdl-3c83e47c98bc9e58ca2c231a5b24c3639018c9cc.tar.gz ghdl-3c83e47c98bc9e58ca2c231a5b24c3639018c9cc.tar.bz2 ghdl-3c83e47c98bc9e58ca2c231a5b24c3639018c9cc.zip | |
Rewrite most of error and warning messages.
Diffstat (limited to 'src/vhdl/evaluation.adb')
| -rw-r--r-- | src/vhdl/evaluation.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/vhdl/evaluation.adb b/src/vhdl/evaluation.adb index 3b89eb14f..1713e4af5 100644 --- a/src/vhdl/evaluation.adb +++ b/src/vhdl/evaluation.adb @@ -1649,9 +1649,9 @@ package body Evaluation is if Res /= Null_Iir then return Build_Constant (Res, Expr); else - Warning_Msg_Sem (Warnid_Runtime_Error, +Expr, - "value """ & Value & """ not in enumeration " - & Disp_Node (Enum)); + Warning_Msg_Sem + (Warnid_Runtime_Error, +Expr, + "value """ & Value & """ not in enumeration %n", +Enum); return Build_Overflow (Expr); end if; end Build_Enumeration_Value; |