From 9e01b1290d44a275160a0d87454e35918fe0d2e5 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 8 Nov 2017 05:45:55 +0100
Subject: Use flist for disconnection specification and component
 specification.

---
 src/vhdl/translate/trans-chap1.adb | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src/vhdl/translate/trans-chap1.adb')

diff --git a/src/vhdl/translate/trans-chap1.adb b/src/vhdl/translate/trans-chap1.adb
index 08b22098c..a8b61c4d4 100644
--- a/src/vhdl/translate/trans-chap1.adb
+++ b/src/vhdl/translate/trans-chap1.adb
@@ -568,13 +568,12 @@ package body Trans.Chap1 is
 
       --  Call the subprogram for the instantiation list.
       declare
-         List : Iir_List;
+         List : Iir_Flist;
          El   : Iir;
       begin
          List := Get_Instantiation_List (Cfg);
-         for I in Natural loop
+         for I in Flist_First .. Flist_Last (List) loop
             El := Get_Nth_Element (List, I);
-            exit when El = Null_Iir;
             El := Get_Named_Entity (El);
             case Get_Kind (El) is
                when Iir_Kind_Component_Instantiation_Statement =>
-- 
cgit v1.2.3