diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-09-30 21:04:19 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-09-30 21:04:19 +0200 |
| commit | 21e59e89b5437ae0f3715b3f84f47f446e91d52d (patch) | |
| tree | b54ce372934c6cd04c15b38f5f7bbd136e99e9d7 | |
| parent | 88d594c84f6b07f312f9fa0a2c2403b81d9ca35d (diff) | |
| download | ghdl-21e59e89b5437ae0f3715b3f84f47f446e91d52d.tar.gz ghdl-21e59e89b5437ae0f3715b3f84f47f446e91d52d.tar.bz2 ghdl-21e59e89b5437ae0f3715b3f84f47f446e91d52d.zip | |
synth: handle range defined by high/low attributes. Fix #956
| -rw-r--r-- | src/synth/synth-expr.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb index 376ce6740..988cb89c3 100644 --- a/src/synth/synth-expr.adb +++ b/src/synth/synth-expr.adb @@ -451,8 +451,8 @@ package body Synth.Expr is is L, R : Value_Acc; begin - L := Synth_Expression (Syn_Inst, Get_Left_Limit (Rng)); - R := Synth_Expression (Syn_Inst, Get_Right_Limit (Rng)); + L := Synth_Expression_With_Basetype (Syn_Inst, Get_Left_Limit (Rng)); + R := Synth_Expression_With_Basetype (Syn_Inst, Get_Right_Limit (Rng)); if not (Is_Const (L) and Is_Const (R)) then Error_Msg_Synth (+Rng, "limits of range are not constant"); |