From 7acfbc54bf6dbb4dbfc44bafc58eb2d5ec9f3550 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 12 Jun 2019 18:41:41 +0200
Subject: vhdl-sem_types: set base type of error types.

---
 src/vhdl/vhdl-sem_types.adb | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src')

diff --git a/src/vhdl/vhdl-sem_types.adb b/src/vhdl/vhdl-sem_types.adb
index 312752088..8b09af241 100644
--- a/src/vhdl/vhdl-sem_types.adb
+++ b/src/vhdl/vhdl-sem_types.adb
@@ -2321,6 +2321,7 @@ package body Vhdl.Sem_Types is
             Type_Mark := Sem_Type_Mark (Def, Incomplete);
             return Type_Mark;
          when Iir_Kind_Error =>
+            Set_Base_Type (Def, Def);
             return Def;
          when others =>
             null;
-- 
cgit v1.2.3