diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2010-04-13 07:21:15 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2010-04-13 07:21:15 +0000 |
| commit | 76af763dfeb704b85edf79c87dfda0cead34d698 (patch) | |
| tree | 4257299e64b5687a21f011613e5caeb13a2139dc /gcc/ada/gcc-interface/gigi.h | |
| parent | cb3d597d15475a12d37a3c01dc7f8e12d2c9eff1 (diff) | |
| download | gcc-76af763dfeb704b85edf79c87dfda0cead34d698.zip gcc-76af763dfeb704b85edf79c87dfda0cead34d698.tar.gz gcc-76af763dfeb704b85edf79c87dfda0cead34d698.tar.bz2 | |
gigi.h (standard_datatypes): Add ADT_parent_name_id.
* gcc-interface/gigi.h (standard_datatypes): Add ADT_parent_name_id.
(parent_name_id): New macro.
* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Record_Type>: Use it.
* gcc-interface/trans.c (gigi): Initialize it.
(lvalue_required_p) <N_Type_Conversion>: New case.
<N_Qualified_Expression>: Likewise.
<N_Allocator>: Likewise.
* gcc-interface/utils.c (convert): Try to properly upcast tagged types.
From-SVN: r158255
Diffstat (limited to 'gcc/ada/gcc-interface/gigi.h')
| -rw-r--r-- | gcc/ada/gcc-interface/gigi.h | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/gcc-interface/gigi.h b/gcc/ada/gcc-interface/gigi.h index 8ba0637..d9459e5 100644 --- a/gcc/ada/gcc-interface/gigi.h +++ b/gcc/ada/gcc-interface/gigi.h @@ -374,9 +374,12 @@ enum standard_datatypes /* Likewise for freeing memory. */ ADT_free_decl, - /* Function decl node for 64-bit multiplication with overflow checking */ + /* Function decl node for 64-bit multiplication with overflow checking. */ ADT_mulv64_decl, + /* Identifier for the name of the _Parent field in tagged record types. */ + ADT_parent_name_id, + /* Types and decls used by our temporary exception mechanism. See init_gigi_decls for details. */ ADT_jmpbuf_type, @@ -408,6 +411,7 @@ extern GTY(()) tree gnat_raise_decls[(int) LAST_REASON_CODE + 1]; #define malloc32_decl gnat_std_decls[(int) ADT_malloc32_decl] #define free_decl gnat_std_decls[(int) ADT_free_decl] #define mulv64_decl gnat_std_decls[(int) ADT_mulv64_decl] +#define parent_name_id gnat_std_decls[(int) ADT_parent_name_id] #define jmpbuf_type gnat_std_decls[(int) ADT_jmpbuf_type] #define jmpbuf_ptr_type gnat_std_decls[(int) ADT_jmpbuf_ptr_type] #define get_jmpbuf_decl gnat_std_decls[(int) ADT_get_jmpbuf_decl] |