Rework list implementation, use iterator.

1 files changed, 5 insertions, 6 deletions

diff --git a/src/vhdl/translate/trans-helpers2.adb b/src/vhdl/translate/trans-helpers2.adb
index c1aab8e5f..d332711ac 100644
--- a/src/vhdl/translate/trans-helpers2.adb
+++ b/src/vhdl/translate/trans-helpers2.adb
@@ -211,19 +211,18 @@ package body Trans.Helpers2 is
 
    procedure Register_Signal_List (List : Iir_List; Proc : O_Dnode)
    is
+      It : List_Iterator;
       El  : Iir;
       Sig : Mnode;
    begin
-      if List = Null_Iir_List then
-         return;
-      end if;
-      for I in Natural loop
-         El := Get_Nth_Element (List, I);
-         exit when El = Null_Iir;
+      It := List_Iterate_Safe (List);
+      while Is_Valid (It) loop
+         El := Get_Element (It);
          Open_Temp;
          Sig := Chap6.Translate_Name (El, Mode_Signal);
          Register_Signal (Sig, Get_Type (El), Proc);
          Close_Temp;
+         Next (It);
       end loop;
    end Register_Signal_List;