From b106247a9843880bcfa3611444e20696f0fb35ae Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Fri, 4 Nov 2016 08:05:19 +0100 Subject: ownership: check tree after sem and canon. --- src/ghdldrv/ghdlxml.adb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/ghdldrv') diff --git a/src/ghdldrv/ghdlxml.adb b/src/ghdldrv/ghdlxml.adb index eb6eceec9..96356ddf2 100644 --- a/src/ghdldrv/ghdlxml.adb +++ b/src/ghdldrv/ghdlxml.adb @@ -401,7 +401,7 @@ package body Ghdlxml is Disp_Iir_Chain (Img, V); when Attr_Chain_Next => null; - when Attr_Of_Ref => + when Attr_Of_Ref | Attr_Of_Maybe_Ref => raise Internal_Error; end case; end; @@ -415,6 +415,8 @@ package body Ghdlxml is Disp_Iir_List (Img, L, False); when Attr_Of_Ref => Disp_Iir_List (Img, L, True); + when Attr_Of_Maybe_Ref => + Disp_Iir_List (Img, L, Get_Is_Ref (N)); when Attr_Ref => Disp_Iir_List_Ref (Img, L); when others => -- cgit v1.2.3