From e33dbbdf5bab6846f0940ff4642f7591a808d2a1 Mon Sep 17 00:00:00 2001 From: jason Date: Sat, 4 Mar 2000 09:32:35 +0000 Subject: * stmt.c (is_body_block): Move... * dwarfout.c, dwarf2out.c: ...from here. * tree.h: Declare it. * emit-rtl.c (remove_unncessary_notes): Don't remove the body block. * final.c (final_start_function): Do call remove_unnecessary_notes when scheduling. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@32324 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/dwarfout.c | 32 -------------------------------- 1 file changed, 32 deletions(-) (limited to 'gcc/dwarfout.c') diff --git a/gcc/dwarfout.c b/gcc/dwarfout.c index d639eb94f99..9d4137915b1 100644 --- a/gcc/dwarfout.c +++ b/gcc/dwarfout.c @@ -318,7 +318,6 @@ static tree decl_class_context PARAMS ((tree)); static void output_unsigned_leb128 PARAMS ((unsigned long)); static void output_signed_leb128 PARAMS ((long)); #endif -static inline int is_body_block PARAMS ((tree)); static int fundamental_type_code PARAMS ((tree)); static tree root_type_1 PARAMS ((tree, int)); static tree root_type PARAMS ((tree)); @@ -1282,37 +1281,6 @@ output_signed_leb128 (value) /**************** utility functions for attribute functions ******************/ -/* Given a pointer to a BLOCK node return non-zero if (and only if) the - node in question represents the outermost pair of curly braces (i.e. - the "body block") of a function or method. - - For any BLOCK node representing a "body block" of a function or method, - the BLOCK_SUPERCONTEXT of the node will point to another BLOCK node - which represents the outermost (function) scope for the function or - method (i.e. the one which includes the formal parameters). The - BLOCK_SUPERCONTEXT of *that* node in turn will point to the relevant - FUNCTION_DECL node. -*/ - -static inline int -is_body_block (stmt) - register tree stmt; -{ - if (TREE_CODE (stmt) == BLOCK) - { - register tree parent = BLOCK_SUPERCONTEXT (stmt); - - if (TREE_CODE (parent) == BLOCK) - { - register tree grandparent = BLOCK_SUPERCONTEXT (parent); - - if (TREE_CODE (grandparent) == FUNCTION_DECL) - return 1; - } - } - return 0; -} - /* Given a pointer to a tree node for some type, return a Dwarf fundamental type code for the given type. -- cgit v1.2.1