diff options
Diffstat (limited to 'src/vhdl/sem.adb')
-rw-r--r-- | src/vhdl/sem.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/vhdl/sem.adb b/src/vhdl/sem.adb index c0cfcae61..41b85a299 100644 --- a/src/vhdl/sem.adb +++ b/src/vhdl/sem.adb @@ -1399,14 +1399,14 @@ package body Sem is return False; end if; declare - L_Left, L_Right : Iir_List; + L_Left : constant Iir_Flist := + Get_Elements_Declaration_List (Left); + L_Right : constant Iir_Flist := + Get_Elements_Declaration_List (Right); begin - L_Left := Get_Elements_Declaration_List (Left); - L_Right := Get_Elements_Declaration_List (Right); - for I in Natural loop + for I in Flist_First .. Flist_Last (L_Left) loop El_Left := Get_Nth_Element (L_Left, I); El_Right := Get_Nth_Element (L_Right, I); - exit when El_Left = Null_Iir; if not Are_Trees_Equal (El_Left, El_Right) then return False; end if; |