diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2016-01-18 11:10:42 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2016-01-18 11:10:42 +0000 |
| commit | 7c775aca298673f95dddfb8605f11b0e2f236361 (patch) | |
| tree | 0bffe85bad394e4bb7306e24515f3f47f8dfe5d1 /gcc/ada/gcc-interface/ada-tree.h | |
| parent | 3dd5f42e90fa6e296d233b0f05c3a760a45d1313 (diff) | |
| download | gcc-7c775aca298673f95dddfb8605f11b0e2f236361.zip gcc-7c775aca298673f95dddfb8605f11b0e2f236361.tar.gz gcc-7c775aca298673f95dddfb8605f11b0e2f236361.tar.bz2 | |
ada-tree.h (TYPE_IMPLEMENTS_PACKED_ARRAY_P): Rename to
* gcc-interface/ada-tree.h (TYPE_IMPLEMENTS_PACKED_ARRAY_P): Rename to
(TYPE_IMPL_PACKED_ARRAY_P): ...this.
(TYPE_CAN_HAVE_DEBUG_TYPE_P): Do not test TYPE_DEBUG_TYPE.
* gcc-interface/decl.c (gnat_to_gnu_entity): Simplify NULL_TREE tests
and tweak gnat_encodings tests throughout.
(initial_value_needs_conversion): Likewise.
(intrin_arglists_compatible_p): Likewise.
* gcc-interface/misc.c (gnat_print_type): Likewise.
(gnat_get_debug_type): Likewise.
(gnat_get_fixed_point_type_info): Likewise.
(gnat_get_array_descr_info): Likewise.
(get_array_bit_stride): Likewise.
(gnat_get_type_bias): Fix formatting.
(enumerate_modes): Likewise.
* gcc-interface/trans.c (gnat_to_gnu): Likewise.
(add_decl_expr): Simplify NULL_TREE test.
(end_stmt_group): Likewise.
(build_binary_op_trapv): Fix formatting.
(get_exception_label): Use switch statement.
(init_code_table): Move around.
* gcc-interface/utils.c (global_bindings_p): Simplify NULL_TREE test.
(gnat_poplevel): Likewise.
(gnat_set_type_context): Likewise.
(defer_or_set_type_context): Fix formatting.
(gnat_pushdecl): Simplify NULL_TREE test.
(maybe_pad_type): Likewise.
(add_parallel_type): Likewise.
(create_range_type): Likewise.
(process_deferred_decl_context): Likewise.
(convert): Likewise.
(def_builtin_1): Likewise.
* gcc-interface/utils2.c (find_common_type): Likewise.
(build_binary_op): Likewise.
(gnat_rewrite_reference): Likewise.
(get_inner_constant_reference): Likewise.
From-SVN: r232501
Diffstat (limited to 'gcc/ada/gcc-interface/ada-tree.h')
| -rw-r--r-- | gcc/ada/gcc-interface/ada-tree.h | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/gcc/ada/gcc-interface/ada-tree.h b/gcc/ada/gcc-interface/ada-tree.h index 715fbad..ceabd17 100644 --- a/gcc/ada/gcc-interface/ada-tree.h +++ b/gcc/ada/gcc-interface/ada-tree.h @@ -6,7 +6,7 @@ * * * C Header File * * * - * Copyright (C) 1992-2015, Free Software Foundation, Inc. * + * Copyright (C) 1992-2016, Free Software Foundation, Inc. * * * * GNAT is free software; you can redistribute it and/or modify it under * * terms of the GNU General Public License as published by the Free Soft- * @@ -189,14 +189,12 @@ do { \ /* True for types that implement a packed array and for original packed array types. */ -#define TYPE_IMPLEMENTS_PACKED_ARRAY_P(NODE) \ - ((TREE_CODE (NODE) == ARRAY_TYPE && TYPE_PACKED (NODE)) \ - || (TREE_CODE (NODE) == INTEGER_TYPE && TYPE_PACKED_ARRAY_TYPE_P (NODE))) \ +#define TYPE_IMPL_PACKED_ARRAY_P(NODE) \ + ((TREE_CODE (NODE) == ARRAY_TYPE && TYPE_PACKED (NODE)) \ + || (TREE_CODE (NODE) == INTEGER_TYPE && TYPE_PACKED_ARRAY_TYPE_P (NODE))) /* True for types that can hold a debug type. */ -#define TYPE_CAN_HAVE_DEBUG_TYPE_P(NODE) \ - (!TYPE_IMPLEMENTS_PACKED_ARRAY_P (NODE) \ - && TYPE_DEBUG_TYPE (NODE) != NULL_TREE) +#define TYPE_CAN_HAVE_DEBUG_TYPE_P(NODE) (!TYPE_IMPL_PACKED_ARRAY_P (NODE)) /* For an UNCONSTRAINED_ARRAY_TYPE, this is the record containing both the template and the object. @@ -385,8 +383,8 @@ do { \ #define SET_TYPE_DEBUG_TYPE(NODE, X) \ SET_TYPE_LANG_SPECIFIC2 (NODE, X) -/* For types with TYPE_IMPLEMENTS_PACKED_ARRAY_P, this is the original packed - array type. Note that this predicate is trou for original packed array +/* For types with TYPE_IMPL_PACKED_ARRAY_P, this is the original packed + array type. Note that this predicate is true for original packed array types, so these cannot have a debug type. */ #define TYPE_ORIGINAL_PACKED_ARRAY(NODE) \ GET_TYPE_LANG_SPECIFIC2 (NODE) |