diff options
Diffstat (limited to 'src/vhdl/vhdl-evaluation.adb')
| -rw-r--r-- | src/vhdl/vhdl-evaluation.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/vhdl/vhdl-evaluation.adb b/src/vhdl/vhdl-evaluation.adb index 819d731e4..d3e7f494c 100644 --- a/src/vhdl/vhdl-evaluation.adb +++ b/src/vhdl/vhdl-evaluation.adb @@ -1073,12 +1073,11 @@ package body Vhdl.Evaluation is Left_Mt := Convert_Node_To_Memtyp (Left); if Right /= Null_Iir then Right_Mt := Convert_Node_To_Memtyp (Right); - Res_Mt := Eval_Static_Dyadic_Predefined - (null, Imp, Res_Typ, Left_Mt, Right_Mt, Orig); else - Res_Mt := Eval_Static_Monadic_Predefined - (null, Imp, Left_Mt, Orig); + Right_Mt := Null_Memtyp; end if; + 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); Release_Expr_Pool (Marker); |