diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-05-18 17:38:31 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-05-18 17:38:31 +0200 |
| commit | fcbe1aea8d144a2595ee02e387866c9e4d12bdde (patch) | |
| tree | 83afd3f2cb11417ef4f4533f06e6c0372605f1a6 | |
| parent | ef6381a83ec122a72a63b2d8aa63af763cc3415e (diff) | |
| download | ghdl-fcbe1aea8d144a2595ee02e387866c9e4d12bdde.tar.gz ghdl-fcbe1aea8d144a2595ee02e387866c9e4d12bdde.tar.bz2 ghdl-fcbe1aea8d144a2595ee02e387866c9e4d12bdde.zip | |
synth-aggr: use constrainted type to build record aggregate.
| -rw-r--r-- | src/synth/synth-aggr.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/synth/synth-aggr.adb b/src/synth/synth-aggr.adb index cee38bea2..6177c106d 100644 --- a/src/synth/synth-aggr.adb +++ b/src/synth/synth-aggr.adb @@ -471,7 +471,7 @@ package body Synth.Aggr is if Const_P then Res := Create_Value_Memory (Res_Typ); for I in Aggr_Type.Rec.E'Range loop - Write_Value (Res.Val.Mem + Aggr_Type.Rec.E (I).Moff, + Write_Value (Res.Val.Mem + Res_Typ.Rec.E (I).Moff, Tab_Res (Tab_Res'Last - Nat32 (I) + 1)); end loop; else |