diff options
Diffstat (limited to 'src/ortho/mcode/ortho_mcode.adb')
-rw-r--r-- | src/ortho/mcode/ortho_mcode.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/ortho/mcode/ortho_mcode.adb b/src/ortho/mcode/ortho_mcode.adb index 16638300d..95f442c89 100644 --- a/src/ortho/mcode/ortho_mcode.adb +++ b/src/ortho/mcode/ortho_mcode.adb @@ -283,12 +283,14 @@ package body Ortho_Mcode is Ortho_Code.O_Cnode (Res)); end Finish_Record_Aggr; - procedure Start_Array_Aggr (List : out O_Array_Aggr_List; Atype : O_Tnode) + procedure Start_Array_Aggr + (List : out O_Array_Aggr_List; Arr_Type : O_Tnode; Len : Unsigned_32) is begin Ortho_Code.Consts.Start_Array_Aggr (Ortho_Code.Consts.O_Array_Aggr_List (List), - Ortho_Code.O_Tnode (Atype)); + Ortho_Code.O_Tnode (Arr_Type), + Len); end Start_Array_Aggr; procedure New_Array_Aggr_El (List : in out O_Array_Aggr_List; |