vhdl-sem_expr: do not try to report empty error message.

1 files changed, 7 insertions, 5 deletions

diff --git a/src/vhdl/vhdl-sem_expr.adb b/src/vhdl/vhdl-sem_expr.adb
index 1c15236f1..31c105c19 100644
--- a/src/vhdl/vhdl-sem_expr.adb
+++ b/src/vhdl/vhdl-sem_expr.adb
@@ -4968,12 +4968,14 @@ package body Vhdl.Sem_Expr is
       if Res /= Null_Iir and then Is_Overloaded (Res) then
          --  FIXME: clarify between overload and not determinable from the
          --  context.
-         Report_Start_Group;
-         Error_Overload (Expr);
-         if Get_Type (Res) /= Null_Iir then
-            Disp_Overload_List (Get_Overload_List (Get_Type (Res)), Expr);
+         if not Is_Error (Expr) then
+            Report_Start_Group;
+            Error_Overload (Expr);
+            if Get_Type (Res) /= Null_Iir then
+               Disp_Overload_List (Get_Overload_List (Get_Type (Res)), Expr);
+            end if;
+            Report_End_Group;
          end if;
-         Report_End_Group;
          return Null_Iir;
       end if;
       return Res;