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/ortho_nodes.common.ads | |
| 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/ortho_nodes.common.ads')
| -rw-r--r-- | ortho/ortho_nodes.common.ads | 7 |
1 files changed, 4 insertions, 3 deletions
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) |