diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-11-19 09:48:46 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-11-19 09:48:46 +0100 |
| commit | 15a35af9b7995d0c5bd72b0221dfe4880336b1ff (patch) | |
| tree | 0abcd178c1ce69ec33acd0db759ce2fb29131c52 | |
| parent | 635bee2eaf5ef97d2e396d6a69b65525b71d6ecf (diff) | |
| download | ghdl-15a35af9b7995d0c5bd72b0221dfe4880336b1ff.tar.gz ghdl-15a35af9b7995d0c5bd72b0221dfe4880336b1ff.tar.bz2 ghdl-15a35af9b7995d0c5bd72b0221dfe4880336b1ff.zip | |
sem_names: do not try to analyze a selected element as an expanded name.
Fix #465.
| -rw-r--r-- | src/vhdl/sem_names.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/vhdl/sem_names.adb b/src/vhdl/sem_names.adb index a863c3118..0190ee1a4 100644 --- a/src/vhdl/sem_names.adb +++ b/src/vhdl/sem_names.adb @@ -2091,7 +2091,8 @@ package body Sem_Names is while Is_Valid (It) loop El := Get_Element (It); case Get_Kind (El) is - when Iir_Kind_Function_Call => + when Iir_Kind_Function_Call + | Iir_Kind_Selected_Element => -- Not an expanded name. null; when others => |