diff options
Diffstat (limited to 'src/vhdl/sem_stmts.adb')
| -rw-r--r-- | src/vhdl/sem_stmts.adb | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/src/vhdl/sem_stmts.adb b/src/vhdl/sem_stmts.adb index 0f9f029dd..30c0de209 100644 --- a/src/vhdl/sem_stmts.adb +++ b/src/vhdl/sem_stmts.adb @@ -1143,9 +1143,15 @@ package body Sem_Stmts is -- El is an iir_identifier. El := Get_Element (It); - Sem_Name (El); + if Is_Error (El) then + pragma Assert (Flags.Flag_Force_Analysis); + Res := Error_Mark; + else + Sem_Name (El); + + Res := Get_Named_Entity (El); + end if; - Res := Get_Named_Entity (El); if Res = Error_Mark then null; elsif Is_Overload_List (Res) or else not Is_Object_Name (Res) then |