diff options
| -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 786a9b299..8f3c66172 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; |