aboutsummaryrefslogtreecommitdiffstats
path: root/canon.adb
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2014-10-22 13:15:33 +0200
committerTristan Gingold <tgingold@free.fr>2014-10-22 13:15:33 +0200
commite00d31baa0e7190b959cfb03df03b260e402da05 (patch)
tree9ed433cdd9d38d6432e3dc016d1b942fbf97519c /canon.adb
parent0e199cbea1070c016d29348cd659b9e6ca688afb (diff)
downloadghdl-e00d31baa0e7190b959cfb03df03b260e402da05.tar.gz
ghdl-e00d31baa0e7190b959cfb03df03b260e402da05.tar.bz2
ghdl-e00d31baa0e7190b959cfb03df03b260e402da05.zip
Rework for support of generic packages.
Diffstat (limited to 'canon.adb')
-rw-r--r--canon.adb4
1 files changed, 1 insertions, 3 deletions
diff --git a/canon.adb b/canon.adb
index dd2d7b481..05b937c86 100644
--- a/canon.adb
+++ b/canon.adb
@@ -2624,9 +2624,7 @@ package body Canon is
Set_Generic_Map_Aspect_Chain
(El,
Canon_Association_Chain_And_Actuals
- (Get_Generic_Chain
- (Get_Package_Header
- (Get_Named_Entity (Get_Uninstantiated_Name (El)))),
+ (Get_Generic_Chain (El),
Get_Generic_Map_Aspect_Chain (El), El));
when others =>
Error_Kind ("canonicalize2", El);