diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 12345f58fa110161e2d413feb1c3a920565978d5..795acaca21df3acde299d3e3bda4149410c68dfc 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2004-02-18  Ulrich Weigand  <uweigand@de.ibm.com>
+
+	* config/s390/s390.c (s390_mainpool_start): Delete the main pool
+	placeholder insn when chunkifying the pool.
+
 2004-02-18  John David Anglin  <dave.anglin@nrc-cnrc.gc.ca>
 
 	* pa.h (PIC_OFFSET_TABLE_REGNUM): Define to INVALID_REGNUM when not
diff --git a/gcc/config/s390/s390.c b/gcc/config/s390/s390.c
index 914e261c474e3af926e9cce2ead78497b3d9685e..0b453517f68c49d6354363c2d41014bc30876a96 100644
--- a/gcc/config/s390/s390.c
+++ b/gcc/config/s390/s390.c
@@ -4373,6 +4373,10 @@ s390_mainpool_start (void)
 
   if (pool->size >= 4096)
     {
+      /* We're going to chunkify the pool, so remove the main
+	 pool placeholder insn.  */
+      remove_insn (pool->pool_insn);
+
       s390_free_pool (pool);
       pool = NULL;
     }