diff options
Diffstat (limited to 'src/synth/synth-expr.adb')
| -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 fa2ddc925..9cb1e0bcc 100644 --- a/src/synth/synth-expr.adb +++ b/src/synth/synth-expr.adb @@ -910,13 +910,14 @@ package body Synth.Expr is if Pfx_Type.Kind = Type_Vector then W := 1; - Mul := 0; if Idx_Val.Kind = Value_Discrete then Voff := No_Net; + Mul := 0; Off := Index_To_Offset (Pfx_Type.Vbound, Idx_Val.Scal, Name); else Voff := Dyn_Index_To_Offset (Pfx_Type.Vbound, Idx_Val, Name); Off := 0; + Mul := 1; end if; elsif Pfx_Type.Kind = Type_Array then W := Get_Type_Width (Pfx_Type.Arr_El); |