From b969c4e05092da8d9d8de412220b1d5952f7231c Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 30 Sep 2019 20:08:10 +0200
Subject: vhdl-std_package: reduce cascaded error messages.

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

(limited to 'src')

diff --git a/src/vhdl/vhdl-std_package.adb b/src/vhdl/vhdl-std_package.adb
index 8012f74e1..ed68c4ae9 100644
--- a/src/vhdl/vhdl-std_package.adb
+++ b/src/vhdl/vhdl-std_package.adb
@@ -88,6 +88,7 @@ package body Vhdl.Std_Package is
          raise Internal_Error;
       end if;
       Set_Location (Error_Mark, Std_Location);
+      Set_Signal_Type_Flag (Error_Mark, True);
 
       Create_Known_Iir (Iir_Kind_Integer_Type_Definition,
                         Universal_Integer_Type_Definition);
-- 
cgit v1.2.3