diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-09-06 19:24:04 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-09-06 19:24:04 +0200 |
| commit | 1f8f54ce6faddf1384f66c2d673619cef01bbb6a (patch) | |
| tree | 076814bd4f66b4b51c6ab208a6eea7d9b9d93331 | |
| parent | e53823b725ef9fe215e84fb86cb45736511dd436 (diff) | |
| download | ghdl-1f8f54ce6faddf1384f66c2d673619cef01bbb6a.tar.gz ghdl-1f8f54ce6faddf1384f66c2d673619cef01bbb6a.tar.bz2 ghdl-1f8f54ce6faddf1384f66c2d673619cef01bbb6a.zip | |
synth-expr: fix regression of issue 7
| -rw-r--r-- | src/synth/synth-expr.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb index 4bb556a22..78a843b6b 100644 --- a/src/synth/synth-expr.adb +++ b/src/synth/synth-expr.adb @@ -156,7 +156,8 @@ package body Synth.Expr is N : Net; begin case Val.Kind is - when Value_Array => + when Value_Array + | Value_Const_Array => pragma Assert (Val.Typ.Vbound.Len >= Off); return Val.Arr.V (Iir_Index32 (Val.Typ.Vbound.Len - Off)); when Value_Net |