diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-05-20 21:42:09 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-05-20 21:42:09 +0200 |
| commit | 8b96a998627521e45e92b44a52d09853c73ca625 (patch) | |
| tree | 6ea20e7c1eb2b96a31649c5a10e7ed8d95035624 /src/vhdl/evaluation.adb | |
| parent | 338d9cce77d60cb34cf02c6cab9ceb4a2918938f (diff) | |
| download | ghdl-8b96a998627521e45e92b44a52d09853c73ca625.tar.gz ghdl-8b96a998627521e45e92b44a52d09853c73ca625.tar.bz2 ghdl-8b96a998627521e45e92b44a52d09853c73ca625.zip | |
Fix crash in assert translation for overflow literal.
Fix ticket 75.
Diffstat (limited to 'src/vhdl/evaluation.adb')
| -rw-r--r-- | src/vhdl/evaluation.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/vhdl/evaluation.adb b/src/vhdl/evaluation.adb index b1adbbcf6..76464a777 100644 --- a/src/vhdl/evaluation.adb +++ b/src/vhdl/evaluation.adb @@ -1651,7 +1651,8 @@ package body Evaluation is return Build_Enumeration (Iir_Index32 (I), Expr); end if; end loop; - Warning_Msg_Sem ("value """ & Value & """ not in enumeration", Expr); + Warning_Msg_Sem ("value """ & Value & """ not in enumeration " + & Disp_Node (Enum), Expr); return Build_Overflow (Expr); end Build_Enumeration_Value; |