From 8e1372ff23dc77e94bd4c7b52544a4873fab261b Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 11 Nov 2017 09:43:30 +0100
Subject: Rewrite list implementation

---
 src/vhdl/disp_vhdl.adb | 6 +++++-
 src/vhdl/iirs.ads      | 2 --
 2 files changed, 5 insertions(+), 3 deletions(-)

(limited to 'src/vhdl')

diff --git a/src/vhdl/disp_vhdl.adb b/src/vhdl/disp_vhdl.adb
index 744e1f9a2..c35dcfd50 100644
--- a/src/vhdl/disp_vhdl.adb
+++ b/src/vhdl/disp_vhdl.adb
@@ -794,6 +794,7 @@ package body Disp_Vhdl is
    is
       El : Iir;
       It : List_Iterator;
+      Is_First : Boolean;
    begin
       case List is
          when Null_Iir_List =>
@@ -802,10 +803,13 @@ package body Disp_Vhdl is
             Put ("all");
          when others =>
             It := List_Iterate (List);
+            Is_First := True;
             while Is_Valid (It) loop
                El := Get_Element (It);
-               if not Is_First (It) then
+               if not Is_First then
                   Put (", ");
+               else
+                  Is_First := False;
                end if;
                Disp_Expression (El);
                Next (It);
diff --git a/src/vhdl/iirs.ads b/src/vhdl/iirs.ads
index 4d18f3f88..6b5de4661 100644
--- a/src/vhdl/iirs.ads
+++ b/src/vhdl/iirs.ads
@@ -5396,8 +5396,6 @@ package Iirs is
      renames Lists.Iterate_Safe;
    function Is_Valid (It : List_Iterator) return Boolean
      renames Lists.Is_Valid;
-   function Is_First (It : List_Iterator) return Boolean
-     renames Lists.Is_First;
    procedure Next (It : in out List_Iterator)
      renames Lists.Next;
    function Get_Element (It : List_Iterator) return Iir
-- 
cgit v1.2.3