This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[ada patch] Remove #if 0 code in ada
- From: Nathanael Nerode <neroden at twcny dot rr dot com>
- To: gcc-patches at gcc dot gnu dot org
- Date: Tue, 10 Jun 2003 15:53:21 -0400
- Subject: [ada patch] Remove #if 0 code in ada
Remove #if 0 clauses. In the case of the one also guarded by __mips_vxworks,
mips-vxworks isn't supported anyway, so I don't see the point.
(ada)
* init.c, misc.c, trans.c, utils.c: Remove dead code.
Index: init.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/ada/init.c,v
retrieving revision 1.14
diff -u -r1.14 init.c
--- init.c 29 Jan 2003 17:43:57 -0000 1.14
+++ init.c 10 Jun 2003 19:37:45 -0000
@@ -1623,16 +1623,6 @@
__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
}
/***************************************/
Index: misc.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/ada/misc.c,v
retrieving revision 1.50
diff -u -r1.50 misc.c
--- misc.c 8 Jun 2003 12:24:23 -0000 1.50
+++ misc.c 10 Jun 2003 19:37:46 -0000
@@ -586,21 +586,8 @@
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. */
Index: trans.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/ada/trans.c,v
retrieving revision 1.28
diff -u -r1.28 trans.c
--- trans.c 3 May 2003 16:43:17 -0000 1.28
+++ trans.c 10 Jun 2003 19:37:53 -0000
@@ -532,14 +532,6 @@
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);
}
Index: utils.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/ada/utils.c,v
retrieving revision 1.28
diff -u -r1.28 utils.c
--- utils.c 1 Jun 2003 19:44:22 -0000 1.28
+++ utils.c 10 Jun 2003 19:37:56 -0000
@@ -1814,13 +1814,6 @@
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. */