s390.c (s390_mainpool_start): Delete the main pool placeholder insn when chunkifying the pool.

	* config/s390/s390.c (s390_mainpool_start): Delete the main pool
	placeholder insn when chunkifying the pool.

From-SVN: r78054

gcc/ChangeLog

+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

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