diff options
| author | Tristan Gingold | 2014-01-25 21:16:44 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2014-01-25 21:16:44 +0100 |
| commit | 2cc6d66e785130bb757bcb73e96cfffdc2c2f0b7 (patch) | |
| tree | 0e1c76137b2da38b1b065d519f005a00a90c4ad9 /ortho/oread | |
| parent | 2bfd9df129c8517776455c6c402a63b79b841257 (diff) | |
| download | ghdl-2cc6d66e785130bb757bcb73e96cfffdc2c2f0b7.tar.gz ghdl-2cc6d66e785130bb757bcb73e96cfffdc2c2f0b7.tar.bz2 ghdl-2cc6d66e785130bb757bcb73e96cfffdc2c2f0b7.zip | |
new_offsetof: add argument for record type (llvm preliminary work).
Diffstat (limited to 'ortho/oread')
| -rw-r--r-- | ortho/oread/ortho_front.adb | 3 |
1 files changed, 2 insertions, 1 deletions
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; |