From 0594a0c145e8c23500be3be298f70d6059cdb0d6 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 20 Sep 2018 06:38:53 +0200
Subject: Add Maybe_Ref_Chain (WIP).

---
 src/ghdldrv/ghdlxml.adb | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/ghdldrv')

diff --git a/src/ghdldrv/ghdlxml.adb b/src/ghdldrv/ghdlxml.adb
index 995706351..49a997670 100644
--- a/src/ghdldrv/ghdlxml.adb
+++ b/src/ghdldrv/ghdlxml.adb
@@ -439,6 +439,12 @@ package body Ghdlxml is
                            end if;
                         when Attr_Chain =>
                            Disp_Iir_Chain (Img, V);
+                        when Attr_Maybe_Ref_Chain =>
+                           if Get_Is_Ref (N) then
+                              Disp_Iir_Ref (Img, V);
+                           else
+                              Disp_Iir_Chain (Img, V);
+                           end if;
                         when Attr_Chain_Next =>
                            null;
                         when Attr_Of_Ref | Attr_Of_Maybe_Ref =>
-- 
cgit v1.2.3