* config/s390/s390.c (s390_mainpool_start): Delete the main pool

	placeholder insn when chunkifying the pool.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@78054 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 12345f5..795acac 100644 (file)
--- 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 914e261..0b45351 100644 (file)
--- 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;
     }