diff options
Diffstat (limited to 'src/vhdl/simulate/execution.adb')
| -rw-r--r-- | src/vhdl/simulate/execution.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/simulate/execution.adb b/src/vhdl/simulate/execution.adb index 44bd4f9f5..013d06928 100644 --- a/src/vhdl/simulate/execution.adb +++ b/src/vhdl/simulate/execution.adb @@ -3568,7 +3568,7 @@ package body Execution is Val := Create_Value_For_Type (Out_Block, Get_Type (Formal), Init_Value_Default); elsif Get_Kind (Get_Type (Formal)) in - Iir_Kinds_Scalar_Type_Definition + Iir_Kinds_Scalar_Type_And_Subtype_Definition then -- These are passed by value. Must be reset. Val := Create_Value_For_Type |