diff options
| author | Tristan Gingold <tgingold@free.fr> | 2021-08-14 21:10:17 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2021-08-14 21:10:17 +0200 |
| commit | 075becc3eb59711a743f277d697b957e95b906d9 (patch) | |
| tree | 5f307e824034c5360932b2f0e255d7357bfb0eeb | |
| parent | b1eb0b50572ceef9efa19fe00ebdf7b952a49692 (diff) | |
| download | ghdl-075becc3eb59711a743f277d697b957e95b906d9.tar.gz ghdl-075becc3eb59711a743f277d697b957e95b906d9.tar.bz2 ghdl-075becc3eb59711a743f277d697b957e95b906d9.zip | |
trans-chap3: handle (ignore) use clauses in protected types. Fix #1833
| -rw-r--r-- | src/vhdl/translate/trans-chap3.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb index 2599a35bc..e782d2d11 100644 --- a/src/vhdl/translate/trans-chap3.adb +++ b/src/vhdl/translate/trans-chap3.adb @@ -1791,7 +1791,8 @@ package body Trans.Chap3 is if Get_Info (El) /= null then Chap2.Translate_Subprogram_Declaration (El); end if; - when Iir_Kind_Attribute_Specification => + when Iir_Kind_Attribute_Specification + | Iir_Kind_Use_Clause => null; when others => Error_Kind ("translate_protected_type_subprograms_spec", El); |