diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-04-18 08:03:22 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-04-18 08:03:22 +0200 |
| commit | 74f1fa0f335df82ce6e1909a1f0665b1a459d107 (patch) | |
| tree | 1c3d3911e531c7253343a496b8e38bf487a15c93 /src | |
| parent | 9e0de040d782b0ec85e03a359319901c32663e33 (diff) | |
| download | ghdl-74f1fa0f335df82ce6e1909a1f0665b1a459d107.tar.gz ghdl-74f1fa0f335df82ce6e1909a1f0665b1a459d107.tar.bz2 ghdl-74f1fa0f335df82ce6e1909a1f0665b1a459d107.zip | |
vhdl-sem_expr: report during analysis out-of-range qualified expressions.
For #1240
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/vhdl-sem_expr.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-sem_expr.adb b/src/vhdl/vhdl-sem_expr.adb index 8ca0503fe..c05dcb618 100644 --- a/src/vhdl/vhdl-sem_expr.adb +++ b/src/vhdl/vhdl-sem_expr.adb @@ -4222,6 +4222,9 @@ package body Vhdl.Sem_Expr is null; end case; + -- Emit a warning if the value is known not to be within the bounds. + Eval_Check_Bound (Res, N_Type); + return Expr; end Sem_Qualified_Expression; |