diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-08-06 09:35:35 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-08-06 09:35:35 +0200 |
commit | 6facf7626446acce5693b257fe7643d7b565118d (patch) | |
tree | 75a4017bd33fe50350f7e62ac6d52165c0d811a4 /src/vhdl/vhdl-parse.adb | |
parent | c6aa6e154c8f34107526aac0a373efe1e7b76ef8 (diff) | |
download | ghdl-6facf7626446acce5693b257fe7643d7b565118d.tar.gz ghdl-6facf7626446acce5693b257fe7643d7b565118d.tar.bz2 ghdl-6facf7626446acce5693b257fe7643d7b565118d.zip |
vhdl: allow discrete subtype indication for discrete_range.
For #877
Diffstat (limited to 'src/vhdl/vhdl-parse.adb')
-rw-r--r-- | src/vhdl/vhdl-parse.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-parse.adb b/src/vhdl/vhdl-parse.adb index e5ff0292a..e182821ae 100644 --- a/src/vhdl/vhdl-parse.adb +++ b/src/vhdl/vhdl-parse.adb @@ -7650,6 +7650,9 @@ package body Vhdl.Parse is Error_Msg_Parse ("multi-dimensional slice is forbidden"); end if; + when Tok_Range => + Actual := Parse_Subtype_Indication (Actual); + when Tok_Double_Arrow => -- Check that FORMAL is a name and not an expression. Formal := Check_Formal_Form (Actual); |