From d76e8439b662952a61fbae626a4f9136b1ce6050 Mon Sep 17 00:00:00 2001
From: Ulrich Weigand <uweigand@de.ibm.com>
Date: Wed, 18 Feb 2004 22:37:04 +0000
Subject: [PATCH] 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          | 5 +++++
 gcc/config/s390/s390.c | 4 ++++
 2 files changed, 9 insertions(+)

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 12345f58fa11..795acaca21df 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 914e261c474e..0b453517f68c 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;
     }
-- 
GitLab