From f0e5c6ed7f858c2975f8a2a1e611bc063b236f62 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 15 Jul 2019 18:47:09 +0200
Subject: vhdl: avoid a crash on no matching operator error.

Fix #869
---
 src/vhdl/vhdl-sem_expr.adb | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/vhdl/vhdl-sem_expr.adb b/src/vhdl/vhdl-sem_expr.adb
index e434ce0c1..59159feff 100644
--- a/src/vhdl/vhdl-sem_expr.adb
+++ b/src/vhdl/vhdl-sem_expr.adb
@@ -1973,7 +1973,13 @@ package body Vhdl.Sem_Expr is
          Free_Iir (Overload);
          Overload := Get_Type (Expr);
          Free_Overload_List (Overload);
-         return Set_Uniq_Interpretation (Full_Compat);
+         if Full_Compat = Null_Iir then
+            Error_Msg_Sem (+Expr,
+                           "no matching function declarations for %n", +Expr);
+            return Null_Iir;
+         else
+            return Set_Uniq_Interpretation (Full_Compat);
+         end if;
       end if;
    end Sem_Operator;
 
-- 
cgit v1.2.3