diff options
| author | gingold | 2005-09-26 05:32:57 +0000 |
|---|---|---|
| committer | gingold | 2005-09-26 05:32:57 +0000 |
| commit | 5a796e95978dd35120de0deab79b11f975c831f5 (patch) | |
| tree | 8a15cf4dc98d072da67c6c13c5274819a207a867 | |
| parent | 977ff5e02c6d2f9bfdabcf8b4e98b81e2d83e849 (diff) | |
| download | ghdl-5a796e95978dd35120de0deab79b11f975c831f5.tar.gz ghdl-5a796e95978dd35120de0deab79b11f975c831f5.tar.bz2 ghdl-5a796e95978dd35120de0deab79b11f975c831f5.zip | |
check_range: do not compare ATYPE with EXPR type if EXPR is null_iir
| -rw-r--r-- | translate/translation.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/translate/translation.adb b/translate/translation.adb index 786a9b2..8f3c661 100644 --- a/translate/translation.adb +++ b/translate/translation.adb @@ -8359,7 +8359,7 @@ package body Translation is If_Blk : O_If_Block; begin if not Need_Range_Check (Atype) - or else Get_Type (Expr) = Atype + or else (Expr /= Null_Iir and then Get_Type (Expr) = Atype) then return; end if; |