diff options
Diffstat (limited to 'src/ortho/llvm-nodebug')
-rw-r--r-- | src/ortho/llvm-nodebug/ortho_llvm.adb | 5 |
1 files changed, 2 insertions, 3 deletions
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; |