diff options
| author | Rafael Espindola <espindola@gcc.gnu.org> | 2007-06-11 15:40:55 +0000 |
|---|---|---|
| committer | Rafael Espindola <espindola@gcc.gnu.org> | 2007-06-11 15:40:55 +0000 |
| commit | 12753674ec3e75275eca8b704c36d6dc3762ade6 (patch) | |
| tree | 09e966f66888827cc56e0e29aacd33c5d45e7819 /gcc/fortran | |
| parent | 73fd4ad6cd12dbb4ba0fbcf4e7fa11d22fd05ea3 (diff) | |
| download | gcc-12753674ec3e75275eca8b704c36d6dc3762ade6.zip gcc-12753674ec3e75275eca8b704c36d6dc3762ade6.tar.gz gcc-12753674ec3e75275eca8b704c36d6dc3762ade6.tar.bz2 | |
really remove signed(_or_unsigned)?_type langhooks
From-SVN: r125621
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/f95-lang.c | 2 | ||||
| -rw-r--r-- | gcc/fortran/trans-types.c | 8 | ||||
| -rw-r--r-- | gcc/fortran/trans-types.h | 1 |
3 files changed, 0 insertions, 11 deletions
diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c index 06cea98..558ba0c 100644 --- a/gcc/fortran/f95-lang.c +++ b/gcc/fortran/f95-lang.c @@ -113,7 +113,6 @@ static HOST_WIDE_INT gfc_get_alias_set (tree); #undef LANG_HOOKS_MARK_ADDRESSABLE #undef LANG_HOOKS_TYPE_FOR_MODE #undef LANG_HOOKS_TYPE_FOR_SIZE -#undef LANG_HOOKS_SIGNED_TYPE #undef LANG_HOOKS_CALLGRAPH_EXPAND_FUNCTION #undef LANG_HOOKS_CLEAR_BINDING_STACK #undef LANG_HOOKS_GET_ALIAS_SET @@ -137,7 +136,6 @@ static HOST_WIDE_INT gfc_get_alias_set (tree); #define LANG_HOOKS_MARK_ADDRESSABLE gfc_mark_addressable #define LANG_HOOKS_TYPE_FOR_MODE gfc_type_for_mode #define LANG_HOOKS_TYPE_FOR_SIZE gfc_type_for_size -#define LANG_HOOKS_SIGNED_TYPE gfc_signed_type #define LANG_HOOKS_CALLGRAPH_EXPAND_FUNCTION gfc_expand_function #define LANG_HOOKS_CLEAR_BINDING_STACK gfc_clear_binding_stack #define LANG_HOOKS_GET_ALIAS_SET gfc_get_alias_set diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c index 20d1718..897b4ca 100644 --- a/gcc/fortran/trans-types.c +++ b/gcc/fortran/trans-types.c @@ -1848,12 +1848,4 @@ gfc_type_for_mode (enum machine_mode mode, int unsignedp) return NULL_TREE; } -/* Return a signed type the same as TYPE in other respects. */ - -tree -gfc_signed_type (tree type) -{ - return get_signed_or_unsigned_type (0, type); -} - #include "gt-fortran-trans-types.h" diff --git a/gcc/fortran/trans-types.h b/gcc/fortran/trans-types.h index 761b218..8e4cf86 100644 --- a/gcc/fortran/trans-types.h +++ b/gcc/fortran/trans-types.h @@ -82,7 +82,6 @@ tree gfc_get_function_type (gfc_symbol *); tree gfc_type_for_size (unsigned, int); tree gfc_type_for_mode (enum machine_mode, int); -tree gfc_signed_type (tree); tree gfc_get_element_type (tree); tree gfc_get_array_type_bounds (tree, int, tree *, tree *, int); |