diff options
| -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 |