From 47ecd38dbf87d87f64c3db3a9fd2c716e63b6ca7 Mon Sep 17 00:00:00 2001 From: Rafael Avila de Espindola Date: Fri, 30 Mar 2007 22:09:01 +0000 Subject: 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 --- gcc/ada/ChangeLog | 8 ++++++++ gcc/ada/gigi.h | 4 ---- gcc/ada/misc.c | 2 -- gcc/ada/trans.c | 2 +- gcc/ada/utils.c | 11 ----------- 5 files changed, 9 insertions(+), 18 deletions(-) (limited to 'gcc/ada') 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 + + * 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 * 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 -- cgit v1.1