diff options
Diffstat (limited to 'src/libraries.adb')
| -rw-r--r-- | src/libraries.adb | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/src/libraries.adb b/src/libraries.adb index 3ce5581f5..15b0fd3bc 100644 --- a/src/libraries.adb +++ b/src/libraries.adb @@ -536,9 +536,16 @@ package body Libraries is Set_Identifier (Design_Unit, Current_Identifier); if Get_Kind (Library_Unit) = Iir_Kind_Architecture_Body then - Scan_Expect (Tok_Of); - Scan_Expect (Tok_Identifier); - Set_Entity_Name (Library_Unit, Current_Text); + declare + Ent : Iir; + begin + Scan_Expect (Tok_Of); + Scan_Expect (Tok_Identifier); + Ent := Create_Iir (Iir_Kind_Simple_Name); + Set_Identifier (Ent, Current_Identifier); + Set_Location (Ent, Get_Token_Location); + Set_Entity_Name (Library_Unit, Ent); + end; end if; -- Scan position. |