diff options
Diffstat (limited to 'src/vhdl/sem_specs.adb')
-rw-r--r-- | src/vhdl/sem_specs.adb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/vhdl/sem_specs.adb b/src/vhdl/sem_specs.adb index c88ff51d0..5a1d511e4 100644 --- a/src/vhdl/sem_specs.adb +++ b/src/vhdl/sem_specs.adb @@ -1510,9 +1510,7 @@ package body Sem_Specs is Aspect := Create_Iir (Iir_Kind_Entity_Aspect_Entity); Location_Copy (Aspect, Parent); - Entity_Name := Create_Iir (Iir_Kind_Simple_Name); - Location_Copy (Entity_Name, Parent); - Set_Named_Entity (Entity_Name, Entity); + Entity_Name := Build_Simple_Name (Entity, Parent); Set_Entity_Name (Aspect, Entity_Name); Set_Entity_Aspect (Res, Aspect); |