From 73bb7fd335965c9c6079415ce50fb2059c3e6265 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 22 Dec 2018 15:54:18 +0100
Subject: errorout: do not crash on wildcard types.

---
 src/vhdl/errorout.adb | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/vhdl/errorout.adb b/src/vhdl/errorout.adb
index be02cea1c..5c79be69c 100644
--- a/src/vhdl/errorout.adb
+++ b/src/vhdl/errorout.adb
@@ -688,9 +688,10 @@ package body Errorout is
             return "overloaded name or expression";
 
          when Iir_Kind_Integer_Type_Definition
-           | Iir_Kind_Enumeration_Type_Definition
-           | Iir_Kind_Wildcard_Type_Definition =>
+           | Iir_Kind_Enumeration_Type_Definition =>
             return Image_Identifier (Get_Type_Declarator (Node));
+         when Iir_Kind_Wildcard_Type_Definition =>
+            return "<any>";
          when Iir_Kind_Array_Type_Definition =>
             return Disp_Type (Node, "array type");
          when Iir_Kind_Array_Subtype_Definition =>
-- 
cgit v1.2.3