From e5edbbba3395c7e72caaf8c582cd8e7f9667b014 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 30 Apr 2023 08:24:39 +0200
Subject: vhdl-evaluation: some ieee functions return a subtype

Fix #2425
---
 src/vhdl/vhdl-evaluation.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
cgit v1.2.3