diff options
author | Tristan Gingold <tgingold@free.fr> | 2016-11-04 08:05:19 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2016-11-05 06:38:19 +0100 |
commit | b106247a9843880bcfa3611444e20696f0fb35ae (patch) | |
tree | 614fb373a86c6ff16a7239478bb2b5780b6901d9 /src/vhdl/translate/trans-chap2.adb | |
parent | 4c7c53b2fb53cd6ff03776b4ce47f6e9f30fd52f (diff) | |
download | ghdl-b106247a9843880bcfa3611444e20696f0fb35ae.tar.gz ghdl-b106247a9843880bcfa3611444e20696f0fb35ae.tar.bz2 ghdl-b106247a9843880bcfa3611444e20696f0fb35ae.zip |
ownership: check tree after sem and canon.
Diffstat (limited to 'src/vhdl/translate/trans-chap2.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap2.adb | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap2.adb b/src/vhdl/translate/trans-chap2.adb index d721a7816..015bca20d 100644 --- a/src/vhdl/translate/trans-chap2.adb +++ b/src/vhdl/translate/trans-chap2.adb @@ -1223,13 +1223,17 @@ package body Trans.Chap2 is Instantiate_Iir_Chain_Info (Get_Iir (N, F)); when Attr_Chain_Next => null; - when Attr_Of_Ref => + when Attr_Of_Ref | Attr_Of_Maybe_Ref => raise Internal_Error; end case; when Type_Iir_List => case Get_Field_Attribute (F) is when Attr_None => Instantiate_Iir_List_Info (Get_Iir_List (N, F)); + when Attr_Of_Maybe_Ref => + if not Get_Is_Ref (N) then + Instantiate_Iir_List_Info (Get_Iir_List (N, F)); + end if; when Attr_Ref | Attr_Of_Ref => null; |