diff options
Diffstat (limited to 'src/ortho/mcode/ortho_mcode.ads')
-rw-r--r-- | src/ortho/mcode/ortho_mcode.ads | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/ortho/mcode/ortho_mcode.ads b/src/ortho/mcode/ortho_mcode.ads index 554b1ee19..ef24372e3 100644 --- a/src/ortho/mcode/ortho_mcode.ads +++ b/src/ortho/mcode/ortho_mcode.ads @@ -167,7 +167,7 @@ package Ortho_Mcode is Res : out O_Cnode); procedure Start_Array_Aggr - (List : out O_Array_Aggr_List; Arr_Type : O_Tnode; Len : Unsigned_32); + (List : out O_Array_Aggr_List; Atype : O_Tnode; Len : Unsigned_32); procedure New_Array_Aggr_El (List : in out O_Array_Aggr_List; Value : O_Cnode); procedure Finish_Array_Aggr (List : in out O_Array_Aggr_List; @@ -320,6 +320,7 @@ package Ortho_Mcode is -- Allowed conversions are: -- FIXME: to write. function New_Convert_Ov (Val : O_Enode; Rtype : O_Tnode) return O_Enode; + function New_Convert (Val : O_Enode; Rtype : O_Tnode) return O_Enode; -- Get the address of LVALUE. -- ATYPE must be a type access whose designated type is the type of LVALUE. |