From 4035edd1239f927ebd50fad88f01786db4d6a262 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 8 Nov 2017 06:16:36 +0100
Subject: Remove List_Others, cleanup lists.

---
 src/ghdldrv/ghdlxml.adb | 36 ++++++++++++++++--------------------
 1 file changed, 16 insertions(+), 20 deletions(-)

(limited to 'src/ghdldrv')

diff --git a/src/ghdldrv/ghdlxml.adb b/src/ghdldrv/ghdlxml.adb
index cc7a5c9f4..6bad81aad 100644
--- a/src/ghdldrv/ghdlxml.adb
+++ b/src/ghdldrv/ghdlxml.adb
@@ -235,36 +235,32 @@ package body Ghdlxml is
    is
       El : Iir;
    begin
-      if L = Null_Iir_List then
-         return;
-      end if;
-
-      Put_Stag (Id);
       case L is
+         when  Null_Iir_List =>
+            null;
+
          when Iir_List_All =>
+            Put_Stag (Id);
             Put_Attribute ("list-id", "all");
             Put_Empty_Stag_End;
-            return;
-         when Iir_List_Others =>
-            Put_Attribute ("list-id", "others");
-            Put_Empty_Stag_End;
-            return;
+
          when others =>
+            Put_Stag (Id);
             Put_Attribute ("list-id", Strip (Iir_List'Image (L)));
             Put_Stag_End;
-      end case;
 
-      for I in Natural loop
-         El := Get_Nth_Element (L, I);
-         exit when El = Null_Iir;
-         if Ref then
+            for I in Natural loop
+               El := Get_Nth_Element (L, I);
+               exit when El = Null_Iir;
+               if Ref then
             Disp_Iir_Ref ("el", El);
-         else
-            Disp_Iir ("el", El);
-         end if;
-      end loop;
+               else
+                  Disp_Iir ("el", El);
+               end if;
+            end loop;
 
-      Put_Etag (Id);
+            Put_Etag (Id);
+      end case;
    end Disp_Iir_List;
 
    procedure Disp_Iir_Flist (Id : String; L : Iir_Flist; Ref : Boolean)
-- 
cgit v1.2.3