From 2f0cc1457f7c496dece5960766173c114096f8d2 Mon Sep 17 00:00:00 2001 From: manu Date: Sun, 11 Feb 2007 22:19:49 +0000 Subject: [PATCH] 2007-02-11 Manuel Lopez-Ibanez * dwarf2out.c (root_type): Delete unused function. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@121828 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ChangeLog | 4 ++++ gcc/dwarf2out.c | 30 ------------------------------ 2 files changed, 4 insertions(+), 30 deletions(-) diff --git a/gcc/ChangeLog b/gcc/ChangeLog index 959a1ffc9de..78068fb4e5f 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,5 +1,9 @@ 2007-02-11 Manuel Lopez-Ibanez + * dwarf2out.c (root_type): Delete unused function. + +2007-02-11 Manuel Lopez-Ibanez + * genattrtab.c (contained_in_p): Delete unused function. (write_expr_attr_cache): Likewise. diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c index 5516f3f2617..f77d4f2559e 100644 --- a/gcc/dwarf2out.c +++ b/gcc/dwarf2out.c @@ -4153,7 +4153,6 @@ static void output_ranges (void); static void output_line_info (void); static void output_file_names (void); static dw_die_ref base_type_die (tree); -static tree root_type (tree); static int is_base_type (tree); static bool is_subrange_type (tree); static dw_die_ref subrange_type_die (tree, dw_die_ref); @@ -8303,35 +8302,6 @@ base_type_die (tree type) return base_type_result; } -/* Given a pointer to an arbitrary ..._TYPE tree node, return a pointer to - the Dwarf "root" type for the given input type. The Dwarf "root" type of - a given type is generally the same as the given type, except that if the - given type is a pointer or reference type, then the root type of the given - type is the root type of the "basis" type for the pointer or reference - type. (This definition of the "root" type is recursive.) Also, the root - type of a `const' qualified type or a `volatile' qualified type is the - root type of the given type without the qualifiers. */ - -static tree -root_type (tree type) -{ - if (TREE_CODE (type) == ERROR_MARK) - return error_mark_node; - - switch (TREE_CODE (type)) - { - case ERROR_MARK: - return error_mark_node; - - case POINTER_TYPE: - case REFERENCE_TYPE: - return type_main_variant (root_type (TREE_TYPE (type))); - - default: - return type_main_variant (type); - } -} - /* Given a pointer to an arbitrary ..._TYPE tree node, return nonzero if the given input type is a Dwarf "fundamental" type. Otherwise return null. */ -- 2.11.4.GIT