diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 0fb482c8eb178204f83f34c6de957e075f68bd6b..e55fe83ce3f184f2a65ee1202472fac7ddb1b74d 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 2f3ad1d80df797930a255ca31c0172e0f8df12b7..a57409933a0e24d5008344c69b6ef41a339987f1 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 6937f8bbac2ddad1c3bf1e4dd0c0bf820f4fb1cd..17cc27cee1b75248676396f3b275f9981129d20a 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 d14d2372360b15c4ba1339e4b3c775dccfb851ba..f3881d28c3481f17ed4ceacc92283e0023cdb1c0 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 8322d35e6cbafa963e4aecf2d46e1055c442b120..a88c9a3219b9571381d78bab665e6e78d75d3f83 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.  */