diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-09-13 05:57:31 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-09-13 05:57:31 +0200 |
| commit | d202c30eaaa47d30d80f870bdf665a6c96430fd8 (patch) | |
| tree | 3a80d6e8c73e50d4523445688d55e7cd688e7eff /src | |
| parent | bc0ade3887edc8aab6142f85f5d64a8e0fadfac6 (diff) | |
| download | ghdl-d202c30eaaa47d30d80f870bdf665a6c96430fd8.tar.gz ghdl-d202c30eaaa47d30d80f870bdf665a6c96430fd8.tar.bz2 ghdl-d202c30eaaa47d30d80f870bdf665a6c96430fd8.zip | |
sem_name: avoid a crash on error on the prefix of a selected name.
Fix #413
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/sem_names.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/vhdl/sem_names.adb b/src/vhdl/sem_names.adb index ddf592cf6..d37143a8f 100644 --- a/src/vhdl/sem_names.adb +++ b/src/vhdl/sem_names.adb @@ -2198,6 +2198,10 @@ package body Sem_Names is (+Prefix_Loc, "%n cannot be selected by name", +Prefix); end if; + when Iir_Kind_Error => + -- Let's propagate the error. + null; + when others => Error_Kind ("sem_selected_name(2)", Prefix); end case; |