diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2011-04-02 08:28:21 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2011-04-02 08:28:21 +0000 |
| commit | 1aeb40dd6d0e8d5a62d25679fa6b0533d72fd4dd (patch) | |
| tree | d56f7d3a44278a2ed83858803463e8d2b84bb2c4 /gcc/ada/gcc-interface/trans.c | |
| parent | 80ec8b4cf19ac985c95e2a222d84e48324cb8994 (diff) | |
| download | gcc-1aeb40dd6d0e8d5a62d25679fa6b0533d72fd4dd.zip gcc-1aeb40dd6d0e8d5a62d25679fa6b0533d72fd4dd.tar.gz gcc-1aeb40dd6d0e8d5a62d25679fa6b0533d72fd4dd.tar.bz2 | |
gigi.h (record_builtin_type): Add ARTIFICIAL_P param.
* gcc-interface/gigi.h (record_builtin_type): Add ARTIFICIAL_P param.
* gcc-interface/utils.c (gnat_pushdecl): If this is a non-artificial
declaration of an array type, then set DECL_ORIGINAL_TYPE to a distinct
copy.
(record_builtin_type): Add ARTIFICIAL_P parameter. Set DECL_ARTIFICIAL
flag of the type accordingly.
* gcc-interface/trans.c (gigi): Adjust calls to record_builtin_type.
From-SVN: r171880
Diffstat (limited to 'gcc/ada/gcc-interface/trans.c')
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 332f715..cca9523 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -308,10 +308,10 @@ gigi (Node_Id gnat_root, int max_gnat_node, int number_name ATTRIBUTE_UNUSED, /* Record the builtin types. Define `integer' and `character' first so that dbx will output them first. */ - record_builtin_type ("integer", integer_type_node); - record_builtin_type ("character", unsigned_char_type_node); - record_builtin_type ("boolean", boolean_type_node); - record_builtin_type ("void", void_type_node); + record_builtin_type ("integer", integer_type_node, false); + record_builtin_type ("character", unsigned_char_type_node, false); + record_builtin_type ("boolean", boolean_type_node, false); + record_builtin_type ("void", void_type_node, false); /* Save the type we made for integer as the type for Standard.Integer. */ save_gnu_tree (Base_Type (standard_integer), @@ -397,7 +397,7 @@ gigi (Node_Id gnat_root, int max_gnat_node, int number_name ATTRIBUTE_UNUSED, jmpbuf_type = build_array_type (gnat_type_for_mode (Pmode, 0), build_index_type (size_int (5))); - record_builtin_type ("JMPBUF_T", jmpbuf_type); + record_builtin_type ("JMPBUF_T", jmpbuf_type, true); jmpbuf_ptr_type = build_pointer_type (jmpbuf_type); /* Functions to get and set the jumpbuf pointer for the current thread. */ @@ -552,7 +552,7 @@ gigi (Node_Id gnat_root, int max_gnat_node, int number_name ATTRIBUTE_UNUSED, } finish_record_type (fdesc_type_node, nreverse (field_list), 0, false); - record_builtin_type ("descriptor", fdesc_type_node); + record_builtin_type ("descriptor", fdesc_type_node, true); null_fdesc_node = gnat_build_constructor (fdesc_type_node, null_vec); } @@ -566,7 +566,8 @@ gigi (Node_Id gnat_root, int max_gnat_node, int number_name ATTRIBUTE_UNUSED, longest_float_type_node = make_node (REAL_TYPE); TYPE_PRECISION (longest_float_type_node) = LONG_DOUBLE_TYPE_SIZE; layout_type (longest_float_type_node); - record_builtin_type ("longest float type", longest_float_type_node); + record_builtin_type ("longest float type", longest_float_type_node, + false); } else longest_float_type_node = TREE_TYPE (long_long_float_type); |