From c414582a22b001b7ca9893a1c2e017fb0523003d Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 2 Jan 2019 21:43:13 +0100
Subject: Remove unused is_ref for choices.  Adjust.

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

(limited to 'src/ghdldrv')

diff --git a/src/ghdldrv/ghdlxml.adb b/src/ghdldrv/ghdlxml.adb
index 1abe3465c..aaf5fb58b 100644
--- a/src/ghdldrv/ghdlxml.adb
+++ b/src/ghdldrv/ghdlxml.adb
@@ -440,12 +440,6 @@ 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