diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index accca6f25ac..1ca550587e6 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2000-04-26  Richard Henderson  <rth@cygnus.com>
+
+	* flow.c (flow_delete_block): Rename from delete_block.  Export.
+	* basic-block.h (flow_delete_block): Declare.
+
 2000-04-26  David S. Miller  <davem@redhat.com>
 
 	* optabs.c (emit_libcall_block): Verify insns with INSN_P before
diff --git a/gcc/basic-block.h b/gcc/basic-block.h
index bd1d2d4a7c2..ad1cc0d8da9 100644
--- a/gcc/basic-block.h
+++ b/gcc/basic-block.h
@@ -231,6 +231,7 @@ extern void make_edge			PARAMS ((sbitmap *, basic_block,
 						 basic_block, int));
 extern void remove_edge			PARAMS ((edge));
 extern void create_basic_block		PARAMS ((int, rtx, rtx, rtx));
+extern int flow_delete_block		PARAMS ((basic_block));
 extern void merge_blocks_nomove		PARAMS ((basic_block, basic_block));
 extern void tidy_fallthru_edge		PARAMS ((edge, basic_block,
 						 basic_block));
diff --git a/gcc/flow.c b/gcc/flow.c
index 02172a1b857..2fb6326280f 100644
--- a/gcc/flow.c
+++ b/gcc/flow.c
@@ -306,7 +306,6 @@ static void commit_one_edge_insertion	PARAMS ((edge));
 static void delete_unreachable_blocks	PARAMS ((void));
 static void delete_eh_regions		PARAMS ((void));
 static int can_delete_note_p		PARAMS ((rtx));
-static int delete_block			PARAMS ((basic_block));
 static void expunge_block		PARAMS ((basic_block));
 static int can_delete_label_p		PARAMS ((rtx));
 static int merge_blocks_move_predecessor_nojumps PARAMS ((basic_block,
@@ -1749,7 +1748,7 @@ delete_unreachable_blocks ()
     }
 
   /* Delete all unreachable basic blocks.  Count down so that we don't
-     interfere with the block renumbering that happens in delete_block.  */
+     interfere with the block renumbering that happens in flow_delete_block. */
 
   deleted_handler = 0;
 
@@ -1761,7 +1760,7 @@ delete_unreachable_blocks ()
 	/* This block was found.  Tidy up the mark.  */
 	b->aux = NULL;
       else
-	deleted_handler |= delete_block (b);
+	deleted_handler |= flow_delete_block (b);
     }
 
   tidy_fallthru_edges ();
@@ -1849,8 +1848,8 @@ flow_delete_insn_chain (start, finish)
 /* ??? Preserving all such notes strikes me as wrong.  It would be nice
    to post-process the stream to remove empty blocks, loops, ranges, etc.  */
 
-static int
-delete_block (b)
+int
+flow_delete_block (b)
      basic_block b;
 {
   int deleted_handler = 0;