diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-12-21 18:57:53 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-12-21 18:57:53 +0100 |
| commit | 11996808efdc47523ab276d5e10a54cfe9987766 (patch) | |
| tree | 12cd6771de6799f9105e6abe845e9554a5810010 /src | |
| parent | 249491882367ab939141107f2518a05bffc08efc (diff) | |
| download | ghdl-11996808efdc47523ab276d5e10a54cfe9987766.tar.gz ghdl-11996808efdc47523ab276d5e10a54cfe9987766.tar.bz2 ghdl-11996808efdc47523ab276d5e10a54cfe9987766.zip | |
simul: adjust instance for conversion in calls.
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/simulate/simul-execution.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/vhdl/simulate/simul-execution.adb b/src/vhdl/simulate/simul-execution.adb index edbfe8909..acc3b9c0b 100644 --- a/src/vhdl/simulate/simul-execution.adb +++ b/src/vhdl/simulate/simul-execution.adb @@ -3650,12 +3650,12 @@ package body Simul.Execution is | Iir_Kind_Interface_File_Declaration => Val := Execute_Expression (Out_Block, Actual); Implicit_Array_Conversion - (Subprg_Block, Val, Get_Type (Formal), Assoc); - Check_Constraints (Subprg_Block, Val, Get_Type (Formal), Assoc); + (Out_Block, Val, Get_Type (Formal), Assoc); + Check_Constraints (Out_Block, Val, Get_Type (Formal), Assoc); when Iir_Kind_Interface_Signal_Declaration => Val := Execute_Name (Out_Block, Actual, True); Implicit_Array_Conversion - (Subprg_Block, Val, Get_Type (Formal), Assoc); + (Out_Block, Val, Get_Type (Formal), Assoc); when Iir_Kind_Interface_Variable_Declaration => Mode := Get_Mode (Inter); if Mode = Iir_In_Mode then @@ -3711,7 +3711,7 @@ package body Simul.Execution is Conv := Get_Actual_Conversion (Assoc); if Conv /= Null_Iir then Val := Execute_Assoc_Conversion - (Subprg_Block, Conv, Val); + (Out_Block, Conv, Val); end if; end if; @@ -3719,7 +3719,7 @@ package body Simul.Execution is end if; Implicit_Array_Conversion - (Subprg_Block, Val, Get_Type (Formal), Assoc); + (Out_Block, Val, Get_Type (Formal), Assoc); when others => Error_Kind ("execute_association(2)", Inter); |