Commit feac22a7 by Eric Botcazou Committed by Eric Botcazou

* gcc-interface/ada-tree.h (TYPE_DEBUG_TYPE): Remove duplicate.

From-SVN: r231823
parent 1e5154e7
2015-12-18 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/ada-tree.h (TYPE_DEBUG_TYPE): Remove duplicate.
2015-12-17 Pierre-Marie de Rodat <derodat@adacore.com> 2015-12-17 Pierre-Marie de Rodat <derodat@adacore.com>
* gcc-interface/ada-tree.h * gcc-interface/ada-tree.h
......
...@@ -369,13 +369,6 @@ do { \ ...@@ -369,13 +369,6 @@ do { \
#define SET_TYPE_ADA_SIZE(NODE, X) \ #define SET_TYPE_ADA_SIZE(NODE, X) \
SET_TYPE_LANG_SPECIFIC (RECORD_OR_UNION_CHECK (NODE), X) SET_TYPE_LANG_SPECIFIC (RECORD_OR_UNION_CHECK (NODE), X)
/* For types with TYPE_CAN_HAVE_DEBUG_TYPE_P, this is the type to use in
debugging information. */
#define TYPE_DEBUG_TYPE(NODE) \
GET_TYPE_LANG_SPECIFIC2(NODE)
#define SET_TYPE_DEBUG_TYPE(NODE, X) \
SET_TYPE_LANG_SPECIFIC2(NODE, X)
/* For an INTEGER_TYPE with TYPE_IS_FIXED_POINT_P, this is the value of the /* For an INTEGER_TYPE with TYPE_IS_FIXED_POINT_P, this is the value of the
scale factor. Modular types, index types (sizetype subtypes) and scale factor. Modular types, index types (sizetype subtypes) and
fixed-point types are totally distinct types, so there is no problem with fixed-point types are totally distinct types, so there is no problem with
...@@ -388,17 +381,17 @@ do { \ ...@@ -388,17 +381,17 @@ do { \
/* For types with TYPE_CAN_HAVE_DEBUG_TYPE_P, this is the type to use in /* For types with TYPE_CAN_HAVE_DEBUG_TYPE_P, this is the type to use in
debugging information. */ debugging information. */
#define TYPE_DEBUG_TYPE(NODE) \ #define TYPE_DEBUG_TYPE(NODE) \
GET_TYPE_LANG_SPECIFIC2(NODE) GET_TYPE_LANG_SPECIFIC2 (NODE)
#define SET_TYPE_DEBUG_TYPE(NODE, X) \ #define SET_TYPE_DEBUG_TYPE(NODE, X) \
SET_TYPE_LANG_SPECIFIC2(NODE, X) SET_TYPE_LANG_SPECIFIC2 (NODE, X)
/* For types with TYPE_IMPLEMENTS_PACKED_ARRAY_P, this is the original packed /* 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 array type. Note that this predicate is trou for original packed array
types, so these cannot have a debug type. */ types, so these cannot have a debug type. */
#define TYPE_ORIGINAL_PACKED_ARRAY(NODE) \ #define TYPE_ORIGINAL_PACKED_ARRAY(NODE) \
GET_TYPE_LANG_SPECIFIC2(NODE) GET_TYPE_LANG_SPECIFIC2 (NODE)
#define SET_TYPE_ORIGINAL_PACKED_ARRAY(NODE, X) \ #define SET_TYPE_ORIGINAL_PACKED_ARRAY(NODE, X) \
SET_TYPE_LANG_SPECIFIC2(NODE, X) SET_TYPE_LANG_SPECIFIC2 (NODE, X)
/* Flags added to decl nodes. */ /* Flags added to decl nodes. */
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment