From fcbe1aea8d144a2595ee02e387866c9e4d12bdde Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 18 May 2020 17:38:31 +0200 Subject: synth-aggr: use constrainted type to build record aggregate. --- src/synth/synth-aggr.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- cgit v1.2.3