diff options
| -rw-r--r-- | src/vhdl/vhdl-evaluation.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-evaluation.adb b/src/vhdl/vhdl-evaluation.adb index 53c82abf9..8b0e874ea 100644 --- a/src/vhdl/vhdl-evaluation.adb +++ b/src/vhdl/vhdl-evaluation.adb @@ -1085,7 +1085,7 @@ package body Vhdl.Evaluation is Res_Mt := Eval_Static_Predefined_Function_Call (null, Left_Mt, Right_Mt, Res_Typ, Orig); - Res := Convert_Memtyp_To_Node (Res_Mt, Res_Type, Orig); + Res := Convert_Memtyp_To_Node (Res_Mt, Get_Base_Type (Res_Type), Orig); Release_Expr_Pool (Marker); return Res; |