diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-11-28 14:10:16 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-11-28 14:10:16 +0100 |
| commit | eaf363fa47f047d62a987804e1f86c2a6ca460f7 (patch) | |
| tree | 9635ee04444545f0dd29c81f830e3c79a40d71e7 /src/vhdl | |
| parent | 01db03a84bc25c0787d192b5c2417a53ad3992f7 (diff) | |
| download | ghdl-eaf363fa47f047d62a987804e1f86c2a6ca460f7.tar.gz ghdl-eaf363fa47f047d62a987804e1f86c2a6ca460f7.tar.bz2 ghdl-eaf363fa47f047d62a987804e1f86c2a6ca460f7.zip | |
synth-vhdl_eval(eval_static_predefined_function_call): handle all operations
Diffstat (limited to 'src/vhdl')
| -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); |