diff options
author | Tristan Gingold <tgingold@free.fr> | 2021-02-06 08:46:27 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2021-02-06 12:27:26 +0100 |
commit | 3a7a0a67d4289e2559afe751a64a9a097d2e1a3a (patch) | |
tree | a350e99789ee30adc96d4b7c1f57bffbc117ad35 /src/vhdl | |
parent | 4ab72fde3bae8372a4be773b48df45d08bf201d9 (diff) | |
download | ghdl-3a7a0a67d4289e2559afe751a64a9a097d2e1a3a.tar.gz ghdl-3a7a0a67d4289e2559afe751a64a9a097d2e1a3a.tar.bz2 ghdl-3a7a0a67d4289e2559afe751a64a9a097d2e1a3a.zip |
vhdl-sem_expr: remove assertion and change comment. Fix #1631
Diffstat (limited to 'src/vhdl')
-rw-r--r-- | src/vhdl/vhdl-sem_expr.adb | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/vhdl/vhdl-sem_expr.adb b/src/vhdl/vhdl-sem_expr.adb index 99a938380..b8445bcec 100644 --- a/src/vhdl/vhdl-sem_expr.adb +++ b/src/vhdl/vhdl-sem_expr.adb @@ -4897,9 +4897,10 @@ package body Vhdl.Sem_Expr is return Null_Iir; when Iir_Kind_Range_Expression => - -- Can only happen in case of parse error, as a range is not an - -- expression. - pragma Assert (Flags.Flag_Force_Analysis); + -- That's an error. Can happen for: + -- c (1 downto 0); + -- which is first parsed as a target of a concurrent assignment, + -- and then as a concurrent procedure call. declare Res : Iir; begin |