diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-03-23 07:54:51 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-03-23 07:54:51 +0100 |
| commit | 01287e2aa2b456e161486c336c7c2e8d98fa5cd1 (patch) | |
| tree | 17716e73a4c0786c0dcc1cc5ed125a57f2a9b7d7 /src | |
| parent | 5010476ea75405dbcacebd97283f1d3dbb932601 (diff) | |
| download | ghdl-01287e2aa2b456e161486c336c7c2e8d98fa5cd1.tar.gz ghdl-01287e2aa2b456e161486c336c7c2e8d98fa5cd1.tar.bz2 ghdl-01287e2aa2b456e161486c336c7c2e8d98fa5cd1.zip | |
vhdl-canon: fix ownership on creation of configuration_declaration
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/vhdl-canon.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-canon.adb b/src/vhdl/vhdl-canon.adb index 0294d1c2e..575d39c39 100644 --- a/src/vhdl/vhdl-canon.adb +++ b/src/vhdl/vhdl-canon.adb @@ -3952,7 +3952,7 @@ package body Vhdl.Canon is Set_Location (Config, Loc); Set_Library_Unit (Res, Config); Set_Design_Unit (Config, Res); - Set_Entity_Name (Config, Get_Entity_Name (Arch)); + Set_Entity_Name (Config, Build_Simple_Name (Get_Entity (Arch), Loc)); Set_Dependence_List (Res, Create_Iir_List); Add_Dependence (Res, Get_Design_Unit (Get_Entity (Config))); Add_Dependence (Res, Get_Design_Unit (Arch)); |