diff options
| author | jason <jason@138bc75d-0d04-0410-961f-82ee72b054a4> | 2000-03-04 09:32:35 +0000 |
|---|---|---|
| committer | jason <jason@138bc75d-0d04-0410-961f-82ee72b054a4> | 2000-03-04 09:32:35 +0000 |
| commit | e33dbbdf5bab6846f0940ff4642f7591a808d2a1 (patch) | |
| tree | 7dbe32baf99950bdd8c71c770cc96d2bfec358e9 /gcc/dwarfout.c | |
| parent | 1a02038c5601046dafc51f09a37349a5c3a39007 (diff) | |
| download | gcc-e33dbbdf5bab6846f0940ff4642f7591a808d2a1.tar.gz | |
* 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
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 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. |