OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* init.c, misc.c, trans.c, utils.c: Remove dead code.

Browse Source 
From-SVN: r67735
This commit is contained in:
Nathanael Nerode 2003-06-10 21:48:32 +00:00
parent 907129969d
commit e8face4c59
5 changed files with 5 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/ChangeLog
View File

@ -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

10
gcc/ada/init.c
View File

@ -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
}
/***************************************/

15
gcc/ada/misc.c
View File

@ -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. */

8
gcc/ada/trans.c
View File

@ -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);
}

7
gcc/ada/utils.c
View File

@ -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. */