diff options
author | Nathanael Nerode <neroden@gcc.gnu.org> | 2003-06-10 21:48:32 +0000 |
---|---|---|
committer | Nathanael Nerode <neroden@gcc.gnu.org> | 2003-06-10 21:48:32 +0000 |
commit | e8face4c5909cdc9a03029677d0612a82d557199 (patch) | |
tree | 8478b1a1a17730fe919518390f0cd21930827389 | |
parent | 907129969df130b1dd0b1e1870126f9bad99e2ee (diff) | |
download | gcc-e8face4c5909cdc9a03029677d0612a82d557199.zip gcc-e8face4c5909cdc9a03029677d0612a82d557199.tar.gz gcc-e8face4c5909cdc9a03029677d0612a82d557199.tar.bz2 |
* init.c, misc.c, trans.c, utils.c: Remove dead code.
From-SVN: r67735
-rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
-rw-r--r-- | gcc/ada/init.c | 10 | ||||
-rw-r--r-- | gcc/ada/misc.c | 15 | ||||
-rw-r--r-- | gcc/ada/trans.c | 8 | ||||
-rw-r--r-- | gcc/ada/utils.c | 7 |
5 files changed, 5 insertions, 39 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 0fb482c..e55fe83 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2003-06-10 Nathanael Nerode <neroden@gcc.gnu.org> + + * init.c, misc.c, trans.c, utils.c: Remove dead code. + 2003-06-09 Nathanael Nerode <neroden@gcc.gnu.org> * Makefile.in: Replace "host_canonical" with "host" for autoconf diff --git a/gcc/ada/init.c b/gcc/ada/init.c index 2f3ad1d..a574099 100644 --- a/gcc/ada/init.c +++ b/gcc/ada/init.c @@ -1623,16 +1623,6 @@ __gnat_initialize () __gnat_init_float (); -#ifdef __mips_vxworks -#if 0 - /* For now remove this handler, since it is causing interferences with gdb */ - - /* Connect the overflow trap directly to the __gnat_int_handler routine - as it is not converted to a signal by VxWorks. */ - - intConnect (INUM_TO_IVEC (IV_TRAP_VEC), &__gnat_int_handler, IV_TRAP_VEC); -#endif -#endif } /***************************************/ diff --git a/gcc/ada/misc.c b/gcc/ada/misc.c index 6937f8b..17cc27c 100644 --- a/gcc/ada/misc.c +++ b/gcc/ada/misc.c @@ -586,21 +586,8 @@ static void gnat_adjust_rli (rli) record_layout_info rli ATTRIBUTE_UNUSED; { -#if 0 - /* This code seems to have no actual effect; record_align should already + /* This function has no actual effect; record_align should already reflect the largest alignment desired by a field. jason 2003-04-01 */ - unsigned int record_align = rli->unpadded_align; - tree field; - - /* If any fields have variable size, we need to force the record to be at - least as aligned as the alignment of that type. */ - for (field = TYPE_FIELDS (rli->t); field; field = TREE_CHAIN (field)) - if (TREE_CODE (DECL_SIZE_UNIT (field)) != INTEGER_CST) - record_align = MAX (record_align, DECL_ALIGN (field)); - - if (TYPE_PACKED (rli->t)) - rli->record_align = record_align; -#endif } /* Make a TRANSFORM_EXPR to later expand GNAT_NODE into code. */ diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c index d14d237..f3881d2 100644 --- a/gcc/ada/trans.c +++ b/gcc/ada/trans.c @@ -532,14 +532,6 @@ tree_transform (gnat_node) gnu_result = UI_To_gnu (Corresponding_Integer_Value (gnat_node), gnu_result_type); if (TREE_CONSTANT_OVERFLOW (gnu_result) -#if 0 - || (TREE_CODE (TYPE_MIN_VALUE (gnu_result_type)) == INTEGER_CST - && tree_int_cst_lt (gnu_result, - TYPE_MIN_VALUE (gnu_result_type))) - || (TREE_CODE (TYPE_MAX_VALUE (gnu_result_type)) == INTEGER_CST - && tree_int_cst_lt (TYPE_MAX_VALUE (gnu_result_type), - gnu_result)) -#endif ) gigi_abort (305); } diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c index 8322d35..a88c9a3 100644 --- a/gcc/ada/utils.c +++ b/gcc/ada/utils.c @@ -1814,13 +1814,6 @@ end_subprog_body () if (function_nesting_depth > 1) ggc_pop_context (); -#if 0 - /* If we're sure this function is defined in this file then mark it - as such */ - if (TREE_ASM_WRITTEN (current_function_decl)) - mark_fn_defined_in_this_file (current_function_decl); -#endif - /* Throw away any VAR_DECLs we made for OUT parameters; they must not be seen when we call this function and will be in unallocated memory anyway. */ |