From 80e6b48eb30679cb884baebc990b3cc8492bbe72 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 30 Sep 2022 06:18:59 +0200
Subject: libraries.adb: do not set location of entity name of architecture.

As the location was the one from the library file, which is unloaded.
---
 src/libraries.adb | 1 -
 1 file changed, 1 deletion(-)

(limited to 'src')

diff --git a/src/libraries.adb b/src/libraries.adb
index bc3d44d83..aa0e6c593 100644
--- a/src/libraries.adb
+++ b/src/libraries.adb
@@ -576,7 +576,6 @@ package body Libraries is
                   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;
-- 
cgit v1.2.3