diff options
author | Tristan Gingold <tgingold@free.fr> | 2016-10-11 06:19:19 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2016-10-11 06:19:19 +0200 |
commit | ec63ed6f4287ef5a0a19817f3803972899cf7648 (patch) | |
tree | be459880175235d631ac0f5249440d63cfc7a3de /src/vhdl/translate/trans-chap5.adb | |
parent | 498665c5328fa2c2e0a0d114e39c545d04fbdfe9 (diff) | |
download | ghdl-ec63ed6f4287ef5a0a19817f3803972899cf7648.tar.gz ghdl-ec63ed6f4287ef5a0a19817f3803972899cf7648.tar.bz2 ghdl-ec63ed6f4287ef5a0a19817f3803972899cf7648.zip |
Rework AST to setup ownership and reference policy.
Check it with nodes_gc.
Diffstat (limited to 'src/vhdl/translate/trans-chap5.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap5.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-chap5.adb b/src/vhdl/translate/trans-chap5.adb index 7572032af..7a6bb0cfb 100644 --- a/src/vhdl/translate/trans-chap5.adb +++ b/src/vhdl/translate/trans-chap5.adb @@ -802,8 +802,8 @@ package body Trans.Chap5 is pragma Assert (Get_Kind (Formal) = Iir_Kind_Interface_Package_Declaration); declare - Uninst_Pkg : constant Iir := Get_Named_Entity - (Get_Uninstantiated_Package_Name (Formal)); + Uninst_Pkg : constant Iir := + Get_Uninstantiated_Package_Decl (Formal); Uninst_Info : constant Ortho_Info_Acc := Get_Info (Uninst_Pkg); Formal_Info : constant Ortho_Info_Acc := |