diff options
author | Tristan Gingold <tgingold@free.fr> | 2023-04-30 08:24:39 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2023-04-30 08:24:39 +0200 |
commit | e5edbbba3395c7e72caaf8c582cd8e7f9667b014 (patch) | |
tree | a2036821f9d1ccf275e50f815c320b5c7537a282 /src | |
parent | a3b1311bef4f9cb66d7e8dc234a0c99f8e923145 (diff) | |
download | ghdl-e5edbbba3395c7e72caaf8c582cd8e7f9667b014.tar.gz ghdl-e5edbbba3395c7e72caaf8c582cd8e7f9667b014.tar.bz2 ghdl-e5edbbba3395c7e72caaf8c582cd8e7f9667b014.zip |
vhdl-evaluation: some ieee functions return a subtype
Fix #2425
Diffstat (limited to 'src')
-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; |