diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-02-08 20:26:13 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-02-09 20:25:03 +0100 |
| commit | ae3865c0cbf1f71f7b8576031a37ac855060677b (patch) | |
| tree | fbf3a76561a09c8cdfc05b0c9167d0df445b252b /src/vhdl/simulate/elaboration.adb | |
| parent | c6b192ec3c8dbc8bb65e3379d3672b78b0cd34c4 (diff) | |
| download | ghdl-ae3865c0cbf1f71f7b8576031a37ac855060677b.tar.gz ghdl-ae3865c0cbf1f71f7b8576031a37ac855060677b.tar.bz2 ghdl-ae3865c0cbf1f71f7b8576031a37ac855060677b.zip | |
simul: fix individual association for array.
Diffstat (limited to 'src/vhdl/simulate/elaboration.adb')
| -rw-r--r-- | src/vhdl/simulate/elaboration.adb | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/vhdl/simulate/elaboration.adb b/src/vhdl/simulate/elaboration.adb index 184d187df..234fd136a 100644 --- a/src/vhdl/simulate/elaboration.adb +++ b/src/vhdl/simulate/elaboration.adb @@ -1211,6 +1211,7 @@ package body Elaboration is Actual_Expr : Iir_Value_Literal_Acc; Init_Expr : Iir_Value_Literal_Acc; Actual : Iir; + Formal : Iir; begin if Ports = Null_Iir then return; @@ -1243,12 +1244,13 @@ package body Elaboration is and then Get_Out_Conversion (Assoc) = Null_Iir then Actual := Get_Actual (Assoc); + Formal := Get_Formal (Assoc); if Is_Signal_Name (Actual) then -- Association with a signal Init_Expr := Execute_Signal_Init_Value (Actual_Instance, Actual); Implicit_Array_Conversion - (Formal_Instance, Init_Expr, Get_Type (Inter), Actual); + (Formal_Instance, Init_Expr, Get_Type (Formal), Actual); Init_Expr := Unshare_Bounds (Init_Expr, Global_Pool'Access); Actual_Expr := null; @@ -1257,8 +1259,7 @@ package body Elaboration is Init_Expr := Execute_Expression (Actual_Instance, Actual); Implicit_Array_Conversion - (Formal_Instance, Init_Expr, - Get_Type (Inter), Actual); + (Formal_Instance, Init_Expr, Get_Type (Formal), Actual); Init_Expr := Unshare (Init_Expr, Global_Pool'Access); Actual_Expr := Init_Expr; end if; |