diff options
Diffstat (limited to 'src/vhdl/sem_expr.adb')
| -rw-r--r-- | src/vhdl/sem_expr.adb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/vhdl/sem_expr.adb b/src/vhdl/sem_expr.adb index 311eaefab..9a3145203 100644 --- a/src/vhdl/sem_expr.adb +++ b/src/vhdl/sem_expr.adb @@ -3802,9 +3802,7 @@ package body Sem_Expr is if E = Null_Iir then Sem_Name (Expr); E := Get_Named_Entity (Expr); - if E = Null_Iir then - raise Internal_Error; - end if; + pragma Assert (E /= Null_Iir); end if; if E = Error_Mark then return Null_Iir; |