From 48b78095ffa8bf349bec312d14812df264cacc32 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Tue, 18 Dec 2018 18:14:40 +0100 Subject: iir_kind_selected_element: use Named_Entity for homogeneity. --- src/vhdl/simulate/simul-execution.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/vhdl/simulate') diff --git a/src/vhdl/simulate/simul-execution.adb b/src/vhdl/simulate/simul-execution.adb index fd8e4bdbc..ddc0009fa 100644 --- a/src/vhdl/simulate/simul-execution.adb +++ b/src/vhdl/simulate/simul-execution.adb @@ -2719,7 +2719,7 @@ package body Simul.Execution is begin Execute_Name_With_Base (Block, Get_Prefix (Expr), Base, Prefix, Is_Sig); - Pos := Get_Element_Position (Get_Selected_Element (Expr)); + Pos := Get_Element_Position (Get_Named_Entity (Expr)); Res := Prefix.Val_Record.V (Pos + 1); end; @@ -3581,7 +3581,7 @@ package body Simul.Execution is end loop; end; when Iir_Kind_Selected_Element => - Pos := Get_Element_Position (Get_Selected_Element (Formal)); + Pos := Get_Element_Position (Get_Named_Entity (Formal)); Store (Pfx.Val_Record.V (Pos + 1), Actual); when others => Error_Kind ("associate_by_reference", Formal); -- cgit v1.2.3