diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-11-08 05:45:55 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-11-08 05:45:55 +0100 |
| commit | 9e01b1290d44a275160a0d87454e35918fe0d2e5 (patch) | |
| tree | 162a7dbc77d34b87fd8d09105b0c5e26ae4cf70b /src/vhdl/configuration.adb | |
| parent | e663f3eaa705b80acdb7c97f52ac50b4beb76b7d (diff) | |
| download | ghdl-9e01b1290d44a275160a0d87454e35918fe0d2e5.tar.gz ghdl-9e01b1290d44a275160a0d87454e35918fe0d2e5.tar.bz2 ghdl-9e01b1290d44a275160a0d87454e35918fe0d2e5.zip | |
Use flist for disconnection specification and component specification.
Diffstat (limited to 'src/vhdl/configuration.adb')
| -rw-r--r-- | src/vhdl/configuration.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/vhdl/configuration.adb b/src/vhdl/configuration.adb index 9e425731f..f02c17d25 100644 --- a/src/vhdl/configuration.adb +++ b/src/vhdl/configuration.adb @@ -425,7 +425,7 @@ package body Configuration is Inst_Inter_Chain : Iir; Err : Boolean; Inst : Iir; - Inst_List : Iir_List; + Inst_List : Iir_Flist; Formal : Iir; Assoc_1 : Iir; Inter_1 : Iir; @@ -460,9 +460,8 @@ package body Configuration is -- Second pass: check for port connected to open in instantiation. Inst_List := Get_Instantiation_List (Conf); - for I in Natural loop + for I in Flist_First .. Flist_Last (Inst_List) loop Inst := Get_Nth_Element (Inst_List, I); - exit when Inst = Null_Iir; Inst := Get_Named_Entity (Inst); Err := False; @@ -543,7 +542,7 @@ package body Configuration is begin if Bind = Null_Iir then if Is_Warning_Enabled (Warnid_Binding) then - Inst := Get_First_Element (Get_Instantiation_List (Conf)); + Inst := Get_Nth_Element (Get_Instantiation_List (Conf), 0); Inst := Strip_Denoting_Name (Inst); Warning_Msg_Elab (Warnid_Binding, Conf, |