diff options
author | Rafael Avila de Espindola <espindola@google.com> | 2007-03-30 22:09:01 +0000 |
---|---|---|
committer | Rafael Espindola <espindola@gcc.gnu.org> | 2007-03-30 22:09:01 +0000 |
commit | 47ecd38dbf87d87f64c3db3a9fd2c716e63b6ca7 (patch) | |
tree | aad122665a7e424450d90c47175d652d463baad7 /gcc/ada | |
parent | ccf8e764e9ca5a530de57cdabdb7123734de2d4a (diff) | |
download | gcc-47ecd38dbf87d87f64c3db3a9fd2c716e63b6ca7.zip gcc-47ecd38dbf87d87f64c3db3a9fd2c716e63b6ca7.tar.gz gcc-47ecd38dbf87d87f64c3db3a9fd2c716e63b6ca7.tar.bz2 |
typeck.c (java_signed_or_unsigned_type): Remove.
gcc/java/ChangeLog:
* typeck.c (java_signed_or_unsigned_type): Remove.
(java_signed_type): use get_signed_or_unsigned_type instead of
java_signed_or_unsigned_type.
(java_unsigned_type): Ditto.
* lang.c (LANG_HOOKS_SIGNED_OR_UNSIGNED_TYPE): Remove.
* java-tree.h (java_signed_or_unsigned_type): Remove
gcc/Changelog:
* tree.h(get_signed_or_unsigned_type): New
* fold-const.c (operand_equal_for_comparison_p): Use
get_signed_or_unsigned_type instead of
lang_hooks.types.signed_or_unsigned_type.
* expr.c (store_expr): Ditto.
* langhooks.c (get_signed_or_unsigned_type): New.
(lhd_signed_or_unsigned_type): New
* langhooks.h (lhd_signed_or_unsigned_type): New.
* langhooks-def.h (LANG_HOOKS_SIGNED_OR_UNSIGNED_TYPE): Define.
gcc/treelang/ChangeLog:
* treetree.c (tree_lang_signed_or_unsigned_type): Remove.
(LANG_HOOKS_SIGNED_OR_UNSIGNED_TYPE) Remove.
gcc/ada/ChangeLog:
* trans.c (Attribute_to_gnu): Use get_signed_or_unsigned_type
instead of gnat_signed_or_unsigned_type.
* utils.c (gnat_signed_or_unsigned_type): Remove.
* misc.c (LANG_HOOKS_SIGNED_OR_UNSIGNED_TYPE): Remove
* gigi.h (gnat_signed_or_unsigned_type): Remove
gcc/forrtan/trans-types.c:
* trans-types.c (gfc_signed_or_unsigned_type): Remove.
(gfc_unsigned_type): Use get_signed_or_unsigned_type instead of
gfc_signed_or_unsigned_type.
(gfc_signed_type): Ditto.
* trans-types.h (gfc_signed_or_unsigned_type): Remove.
* f95-lang.c (LANG_HOOKS_SIGNED_OR_UNSIGNED_TYPE): Remove.
From-SVN: r123373
Diffstat (limited to 'gcc/ada')
-rw-r--r-- | gcc/ada/ChangeLog | 8 | ||||
-rw-r--r-- | gcc/ada/gigi.h | 4 | ||||
-rw-r--r-- | gcc/ada/misc.c | 2 | ||||
-rw-r--r-- | gcc/ada/trans.c | 2 | ||||
-rw-r--r-- | gcc/ada/utils.c | 11 |
5 files changed, 9 insertions, 18 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 8fe5c3c..60901bf 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,11 @@ +2007-03-30 Rafael Avila de Espindola <espindola@google.com> + + * trans.c (Attribute_to_gnu): Use get_signed_or_unsigned_type + instead of gnat_signed_or_unsigned_type. + * utils.c (gnat_signed_or_unsigned_type): Remove. + * misc.c (LANG_HOOKS_SIGNED_OR_UNSIGNED_TYPE): Remove + * gigi.h (gnat_signed_or_unsigned_type): Remove + 2007-03-09 Roger Sayle <roger@eyesopen.com> * cuintp.c (UI_To_gnu): Use fold_buildN calls instead of calling diff --git a/gcc/ada/gigi.h b/gcc/ada/gigi.h index 1c1c161..b16649f 100644 --- a/gcc/ada/gigi.h +++ b/gcc/ada/gigi.h @@ -454,10 +454,6 @@ extern tree gnat_unsigned_type (tree type_node); /* Return the signed version of a TYPE_NODE, a scalar type. */ extern tree gnat_signed_type (tree type_node); -/* Return a type the same as TYPE except unsigned or signed according to - UNSIGNEDP. */ -extern tree gnat_signed_or_unsigned_type (int unsignedp, tree type); - /* Create an expression whose value is that of EXPR, converted to type TYPE. The TREE_TYPE of the value is always TYPE. This function implements all reasonable diff --git a/gcc/ada/misc.c b/gcc/ada/misc.c index 67de3ff..bd22e7e 100644 --- a/gcc/ada/misc.c +++ b/gcc/ada/misc.c @@ -161,8 +161,6 @@ static tree gnat_type_max_size (tree); #define LANG_HOOKS_SIGNED_TYPE gnat_signed_type #undef LANG_HOOKS_UNSIGNED_TYPE #define LANG_HOOKS_UNSIGNED_TYPE gnat_unsigned_type -#undef LANG_HOOKS_SIGNED_OR_UNSIGNED_TYPE -#define LANG_HOOKS_SIGNED_OR_UNSIGNED_TYPE gnat_signed_or_unsigned_type #undef LANG_HOOKS_ATTRIBUTE_TABLE #define LANG_HOOKS_ATTRIBUTE_TABLE gnat_internal_attribute_table #undef LANG_HOOKS_BUILTIN_FUNCTION diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c index 9653822..230dccf 100644 --- a/gcc/ada/trans.c +++ b/gcc/ada/trans.c @@ -876,7 +876,7 @@ Attribute_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p, int attribute) /* 'Length or 'Range_Length. */ { tree gnu_compute_type - = gnat_signed_or_unsigned_type (0, + = get_signed_or_unsigned_type (0, get_base_type (gnu_result_type)); gnu_result diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c index 42c9a9d..1782ca9 100644 --- a/gcc/ada/utils.c +++ b/gcc/ada/utils.c @@ -2307,17 +2307,6 @@ gnat_signed_type (tree type_node) return type; } -/* Return a type the same as TYPE except unsigned or signed according to - UNSIGNEDP. */ - -tree -gnat_signed_or_unsigned_type (int unsignedp, tree type) -{ - if (!INTEGRAL_TYPE_P (type) || TYPE_UNSIGNED (type) == unsignedp) - return type; - else - return gnat_type_for_size (TYPE_PRECISION (type), unsignedp); -} /* EXP is an expression for the size of an object. If this size contains discriminant references, replace them with the maximum (if MAX_P) or |