diff options
| -rw-r--r-- | src/vhdl/sem_scopes.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/vhdl/sem_scopes.adb b/src/vhdl/sem_scopes.adb index 617f7bedc..16be2a29d 100644 --- a/src/vhdl/sem_scopes.adb +++ b/src/vhdl/sem_scopes.adb @@ -454,6 +454,8 @@ package body Sem_Scopes is Last_In_Region := Ident; end Add_New_Interpretation; begin + pragma Assert (Ident /= Null_Identifier); + if not Valid_Interpretation (Raw_Inter) then -- Very simple: no hidding, no overloading. Add_New_Interpretation (True); |