2010-04-08 Wolfgang Gellerich <gellerich@de.ibm.com>

	* config/s390/s390.c (override_options): Adjust the z10
          defaults for max-unroll-times, max-completely-peeled-insns
          and max-completely-peel-times.

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

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 6f4ef74..856656f 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,9 @@
+2010-04-08  Wolfgang Gellerich  <gellerich@de.ibm.com>
+
+       * config/s390/s390.c (override_options): Adjust the z10
+          defaults for max-unroll-times, max-completely-peeled-insns
+          and max-completely-peel-times.
+

 2010-04-08  Andreas Krebbel  <Andreas.Krebbel@de.ibm.com>
 
        * config/s390/s390.c (s390_expand_movmem): Issue prefetch
 2010-04-08  Andreas Krebbel  <Andreas.Krebbel@de.ibm.com>
 
        * config/s390/s390.c (s390_expand_movmem): Issue prefetch

diff --git a/gcc/config/s390/s390.c b/gcc/config/s390/s390.c
index 05ad9f2..e6cc4ba 100644 (file)
--- a/gcc/config/s390/s390.c
+++ b/gcc/config/s390/s390.c
@@ -1636,12 +1636,19 @@ override_options (void)
     target_flags |= MASK_LONG_DOUBLE_128;
 #endif
 
     target_flags |= MASK_LONG_DOUBLE_128;
 #endif
 

-  if (s390_tune == PROCESSOR_2097_Z10
-      && !PARAM_SET_P (PARAM_MAX_UNROLLED_INSNS))
-    set_param_value ("max-unrolled-insns", 100);
+  if (s390_tune == PROCESSOR_2097_Z10)
+    {
+      if (!PARAM_SET_P (PARAM_MAX_UNROLLED_INSNS))
+       set_param_value ("max-unrolled-insns", 100);
+      if (!PARAM_SET_P (PARAM_MAX_UNROLL_TIMES))
+       set_param_value ("max-unroll-times", 32);
+      if (!PARAM_SET_P (PARAM_MAX_COMPLETELY_PEELED_INSNS))
+       set_param_value ("max-completely-peeled-insns", 800);
+      if (!PARAM_SET_P (PARAM_MAX_COMPLETELY_PEEL_TIMES))
+       set_param_value ("max-completely-peel-times", 64);
+    }

 
   set_param_value ("max-pending-list-length", 256);
 
   set_param_value ("max-pending-list-length", 256);

-

 }
 
 /* Map for smallest class containing reg regno.  */
 }
 
 /* Map for smallest class containing reg regno.  */