aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2019-06-12 18:41:41 +0200
committerTristan Gingold <tgingold@free.fr>2019-06-12 18:41:41 +0200
commit7acfbc54bf6dbb4dbfc44bafc58eb2d5ec9f3550 (patch)
tree6e44e10fbd4c4f9b45b2bacba8093c3cc3972c84 /src
parent26235c3d1e04457801365f9028a1ac3ac58c08a6 (diff)
downloadghdl-7acfbc54bf6dbb4dbfc44bafc58eb2d5ec9f3550.tar.gz
ghdl-7acfbc54bf6dbb4dbfc44bafc58eb2d5ec9f3550.tar.bz2
ghdl-7acfbc54bf6dbb4dbfc44bafc58eb2d5ec9f3550.zip
vhdl-sem_types: set base type of error types.
Diffstat (limited to 'src')
-rw-r--r--src/vhdl/vhdl-sem_types.adb1
1 files changed, 1 insertions, 0 deletions
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;