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/ghdldrv | |
| 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/ghdldrv')
| -rw-r--r-- | src/ghdldrv/ghdlxml.adb | 4 |
1 files changed, 3 insertions, 1 deletions
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 => |