diff options
| author | Tristan Gingold | 2014-12-26 06:26:25 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2014-12-26 06:26:25 +0100 |
| commit | cb0609778181832120ca7776dc4501b97d0ebbeb (patch) | |
| tree | dd63493909b1c7ba818d9c6d9ee252812d06eb29 /src/vhdl/sem_expr.adb | |
| parent | 523792edaef032f41ea8a0bb8273013ced2a9276 (diff) | |
| download | ghdl-cb0609778181832120ca7776dc4501b97d0ebbeb.tar.gz ghdl-cb0609778181832120ca7776dc4501b97d0ebbeb.tar.bz2 ghdl-cb0609778181832120ca7776dc4501b97d0ebbeb.zip | |
Rewrite sem_scopes tables for speed-up (and clarification).
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 311eaef..9a31452 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; |