diff options
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); |