From 2cc6d66e785130bb757bcb73e96cfffdc2c2f0b7 Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Sat, 25 Jan 2014 21:16:44 +0100
Subject: new_offsetof: add argument for record type (llvm preliminary work).

---
 ortho/ortho_nodes.common.ads | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'ortho/ortho_nodes.common.ads')

diff --git a/ortho/ortho_nodes.common.ads b/ortho/ortho_nodes.common.ads
index 9e29d37..ee26f60 100644
--- a/ortho/ortho_nodes.common.ads
+++ b/ortho/ortho_nodes.common.ads
@@ -171,9 +171,10 @@ package ORTHO_NODES is
    --  unsgined type RTYPE.
    function New_Alignof (Atype : O_Tnode; Rtype : O_Tnode) return O_Cnode;
 
-   --  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;
 
    --  Get the address of a subprogram.
    function New_Subprogram_Address (Subprg : O_Dnode; Atype : O_Tnode)
-- 
cgit