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/oread/ortho_front.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'ortho/oread')

diff --git a/ortho/oread/ortho_front.adb b/ortho/oread/ortho_front.adb
index c6e1234..0d3e178 100644
--- a/ortho/oread/ortho_front.adb
+++ b/ortho/oread/ortho_front.adb
@@ -1244,7 +1244,8 @@ package body Ortho_Front is
       Next_Expect (Tok_Ident);
       Rec_Field := Find_Field_By_Name (Rec_Type.Decl_Dtype);
       Next_Expect (Tok_Right_Paren);
-      return New_Offsetof (Rec_Field.Field_Fnode,
+      return New_Offsetof (Rec_Type.Decl_Dtype.Type_Onode,
+                           Rec_Field.Field_Fnode,
                            Atype.Type_Onode);
    end Parse_Offsetof;
 
-- 
cgit