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/iirs_utils.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/iirs_utils.adb')
| -rw-r--r-- | src/vhdl/iirs_utils.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/vhdl/iirs_utils.adb b/src/vhdl/iirs_utils.adb index 5fa9987e5..4df49b424 100644 --- a/src/vhdl/iirs_utils.adb +++ b/src/vhdl/iirs_utils.adb @@ -51,6 +51,11 @@ package body Iirs_Utils is return Get_Kind (N) = Iir_Kind_Error; end Is_Error; + function Is_Overflow_Literal (N : Iir) return Boolean is + begin + return Get_Kind (N) = Iir_Kind_Overflow_Literal; + end Is_Overflow_Literal; + function Get_Operator_Name (Op : Iir) return Name_Id is begin case Get_Kind (Op) is |