diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-05-09 22:00:52 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-05-09 22:00:52 +0200 |
| commit | 98148ccf5ad3b7686b824991a9dd0884f7753277 (patch) | |
| tree | 80bbb9b0fd70cb70debbf1a78c82a8d49767cf78 /src/vhdl/sem_names.adb | |
| parent | 0650183330f4ab87aa28a09c13486c1fe2d86552 (diff) | |
| download | ghdl-98148ccf5ad3b7686b824991a9dd0884f7753277.tar.gz ghdl-98148ccf5ad3b7686b824991a9dd0884f7753277.tar.bz2 ghdl-98148ccf5ad3b7686b824991a9dd0884f7753277.zip | |
Report incorrect use of 'Base.
Diffstat (limited to 'src/vhdl/sem_names.adb')
| -rw-r--r-- | src/vhdl/sem_names.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/vhdl/sem_names.adb b/src/vhdl/sem_names.adb index 87f9402c6..ad1b17dc0 100644 --- a/src/vhdl/sem_names.adb +++ b/src/vhdl/sem_names.adb @@ -3692,8 +3692,10 @@ package body Sem_Names is | Iir_Kind_Implicit_Dereference | Iir_Kind_Dereference | Iir_Kind_Attribute_Value - | Iir_Kind_Function_Call - | Iir_Kinds_Attribute => + | Iir_Kind_Function_Call => + return True; + when Iir_Kinds_Expression_Attribute => + -- All expression attributes are a name. return True; when Iir_Kind_Simple_Name | Iir_Kind_Selected_Name => |