diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-05-03 08:00:13 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-05-03 08:00:13 +0200 |
| commit | 131beedb017e7a7fe5b00f4163143b9670acfeec (patch) | |
| tree | 985e53c7918056fa26fbe185ca941449c7936f35 | |
| parent | 0abcd7c2c6a7e51c3c5e72f7ad6d05f1d4ae0e0a (diff) | |
| download | ghdl-131beedb017e7a7fe5b00f4163143b9670acfeec.tar.gz ghdl-131beedb017e7a7fe5b00f4163143b9670acfeec.tar.bz2 ghdl-131beedb017e7a7fe5b00f4163143b9670acfeec.zip | |
vhdl-sem_names: second fix for #2048
| -rw-r--r-- | src/vhdl/vhdl-sem_names.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-sem_names.adb b/src/vhdl/vhdl-sem_names.adb index ddf431438..4ce05632f 100644 --- a/src/vhdl/vhdl-sem_names.adb +++ b/src/vhdl/vhdl-sem_names.adb @@ -3272,7 +3272,8 @@ package body Vhdl.Sem_Names is Spec => Prefix, Assoc_Chain => Null_Iir); Sem_As_Selected_By_All_Name (Prefix); - when Iir_Kind_Library_Declaration => + when Iir_Kind_Library_Declaration + | Iir_Kind_Package_Declaration => Error_Msg_Sem (+Name, "%n cannot be selected by all", +Prefix); Set_Named_Entity (Name, Error_Mark); return; |