diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-01-11 18:17:13 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-01-11 18:17:13 +0100 |
| commit | b1d2fb64a8e1ecceaaecd92e44e63fc7af0416f1 (patch) | |
| tree | f0779be994f63d84ab3576a6803b16ed6d384a0d /src/synth/synth-vhdl_expr.adb | |
| parent | 1b47cbc9dc619a0788d15954cea61f8d79f4d4fb (diff) | |
| download | ghdl-b1d2fb64a8e1ecceaaecd92e44e63fc7af0416f1.tar.gz ghdl-b1d2fb64a8e1ecceaaecd92e44e63fc7af0416f1.tar.bz2 ghdl-b1d2fb64a8e1ecceaaecd92e44e63fc7af0416f1.zip | |
synth: handle element attribute
Diffstat (limited to 'src/synth/synth-vhdl_expr.adb')
| -rw-r--r-- | src/synth/synth-vhdl_expr.adb | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/synth/synth-vhdl_expr.adb b/src/synth/synth-vhdl_expr.adb index 884fe9e16..21bf95b18 100644 --- a/src/synth/synth-vhdl_expr.adb +++ b/src/synth/synth-vhdl_expr.adb @@ -717,7 +717,11 @@ package body Synth.Vhdl_Expr is when Type_Record => pragma Assert (Vtype.Kind = Type_Record); -- TODO: check elements. - return Vt; + if Bounds then + return Reshape_Value (Vt, Dtype); + else + return Vt; + end if; when Type_Unbounded_Record => pragma Assert (Vtype.Kind = Type_Record); -- TODO: check elements |