diff options
Diffstat (limited to 'ortho/mcode/ortho_mcode.ads')
| -rw-r--r-- | ortho/mcode/ortho_mcode.ads | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/ortho/mcode/ortho_mcode.ads b/ortho/mcode/ortho_mcode.ads index ea06573..369e743 100644 --- a/ortho/mcode/ortho_mcode.ads +++ b/ortho/mcode/ortho_mcode.ads @@ -280,9 +280,10 @@ package Ortho_Mcode is function New_Alignof (Atype : O_Tnode; Rtype : O_Tnode) return O_Cnode renames Ortho_Code.Consts.New_Alignof; - -- Returns the offset of FIELD in its record. The result is a literal - -- of unsigned type RTYPE. - function New_Offsetof (Field : O_Fnode; Rtype : O_Tnode) return O_Cnode + -- Returns the offset of FIELD in its record REC_TYPE. The result is a + -- literal of unsigned type or access type RTYPE. + function New_Offsetof (Rec_Type : O_Tnode; Field : O_Fnode; Rtype : O_Tnode) + return O_Cnode renames Ortho_Code.Consts.New_Offsetof; -- Get an element of an array. |