diff options
| author | Jason Merrill <jason@casey.cygnus.com> | 2000-03-04 09:32:35 +0000 |
|---|---|---|
| committer | Jason Merrill <jason@gcc.gnu.org> | 2000-03-04 04:32:35 -0500 |
| commit | deb5e2801f7c307c0c0d225fd244741c7635deeb (patch) | |
| tree | 7dbe32baf99950bdd8c71c770cc96d2bfec358e9 /gcc/dwarfout.c | |
| parent | e8965a187162a2da95e059a6ef3d16a68258d046 (diff) | |
| download | gcc-deb5e2801f7c307c0c0d225fd244741c7635deeb.zip gcc-deb5e2801f7c307c0c0d225fd244741c7635deeb.tar.gz gcc-deb5e2801f7c307c0c0d225fd244741c7635deeb.tar.bz2 | |
stmt.c (is_body_block): Move...
* 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.
From-SVN: r32324
Diffstat (limited to 'gcc/dwarfout.c')
| -rw-r--r-- | gcc/dwarfout.c | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/gcc/dwarfout.c b/gcc/dwarfout.c index d639eb9..9d41379 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. |