diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-06-12 18:41:41 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-06-12 18:41:41 +0200 |
| commit | 7acfbc54bf6dbb4dbfc44bafc58eb2d5ec9f3550 (patch) | |
| tree | 6e44e10fbd4c4f9b45b2bacba8093c3cc3972c84 | |
| parent | 26235c3d1e04457801365f9028a1ac3ac58c08a6 (diff) | |
| download | ghdl-7acfbc54bf6dbb4dbfc44bafc58eb2d5ec9f3550.tar.gz ghdl-7acfbc54bf6dbb4dbfc44bafc58eb2d5ec9f3550.tar.bz2 ghdl-7acfbc54bf6dbb4dbfc44bafc58eb2d5ec9f3550.zip | |
vhdl-sem_types: set base type of error types.
| -rw-r--r-- | src/vhdl/vhdl-sem_types.adb | 1 |
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; |