diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-09-30 20:08:10 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-09-30 20:08:10 +0200 |
| commit | b969c4e05092da8d9d8de412220b1d5952f7231c (patch) | |
| tree | a0f30d4c4a3b6689c6169f04689b1d13c8c32fd5 | |
| parent | 356d2d9633a053d4e1ebd47071f8c7681adc8a08 (diff) | |
| download | ghdl-b969c4e05092da8d9d8de412220b1d5952f7231c.tar.gz ghdl-b969c4e05092da8d9d8de412220b1d5952f7231c.tar.bz2 ghdl-b969c4e05092da8d9d8de412220b1d5952f7231c.zip | |
vhdl-std_package: reduce cascaded error messages.
| -rw-r--r-- | src/vhdl/vhdl-std_package.adb | 1 |
1 files changed, 1 insertions, 0 deletions
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); |