From 691d4875f0710e0603a7ae563600f9a6c041c6d6 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 27 May 2020 17:50:12 +0200
Subject: ortho: add a length parameter to start_array_aggr.

---
 src/ortho/llvm-nodebug/ortho_llvm.adb | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src/ortho/llvm-nodebug')

diff --git a/src/ortho/llvm-nodebug/ortho_llvm.adb b/src/ortho/llvm-nodebug/ortho_llvm.adb
index 443b469aa..56b22f092 100644
--- a/src/ortho/llvm-nodebug/ortho_llvm.adb
+++ b/src/ortho/llvm-nodebug/ortho_llvm.adb
@@ -627,13 +627,12 @@ package body Ortho_LLVM is
    ----------------------
 
    procedure Start_Array_Aggr
-     (List : out O_Array_Aggr_List;
-      Atype : O_Tnode)
+     (List : out O_Array_Aggr_List; Atype : O_Tnode; Len : Unsigned_32)
    is
       Llvm : constant TypeRef := Get_LLVM_Type (Atype);
    begin
       List := (Len => 0,
-               Vals => new ValueRefArray (1 .. GetArrayLength (Llvm)),
+               Vals => new ValueRefArray (1 .. unsigned (Len)),
                El_Type => GetElementType (Llvm),
                Atype => Atype);
    end Start_Array_Aggr;
-- 
cgit v1.2.3