diff options
| author | Tristan Gingold | 2015-05-20 21:42:09 +0200 |
|---|---|---|
| committer | Tristan Gingold | 2015-05-20 21:42:09 +0200 |
| commit | 8b96a998627521e45e92b44a52d09853c73ca625 (patch) | |
| tree | 6ea20e7c1eb2b96a31649c5a10e7ed8d95035624 /src/vhdl/iirs_utils.ads | |
| 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.ads')
| -rw-r--r-- | src/vhdl/iirs_utils.ads | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/vhdl/iirs_utils.ads b/src/vhdl/iirs_utils.ads index 3d74aa3..96ac91d 100644 --- a/src/vhdl/iirs_utils.ads +++ b/src/vhdl/iirs_utils.ads @@ -31,6 +31,10 @@ package Iirs_Utils is function Is_Error (N : Iir) return Boolean; pragma Inline (Is_Error); + -- Return True iff N is an overflow_literal node. + function Is_Overflow_Literal (N : Iir) return Boolean; + pragma Inline (Is_Overflow_Literal); + -- Find LIT in the list of identifiers or characters LIST. -- Return the literal (whose name is LIT) or null_iir if not found. function Find_Name_In_Chain (Chain: Iir; Lit: Name_Id) return Iir; |