s390.c (s390_init_frame_layout): Check positive frame_size.

2006-10-26  Andreas Krebbel  <krebbel1@de.ibm.com>

	* config/s390/s390.c (s390_init_frame_layout): Check positive
	frame_size.

2006-10-26  Andreas Krebbel  <krebbel1@de.ibm.com>

	* gcc.dg/20061026.c: New testcase.

From-SVN: r118062

gcc/ChangeLog

+2006-10-26  Andreas Krebbel  <krebbel1@de.ibm.com>
+
+	* config/s390/s390.c (s390_init_frame_layout): Check positive
+	frame_size.
+
 2006-10-26  Ben Elliston  <bje@au.ibm.com>
 
 	* gimplify.c (get_name): Remove extraneous break.

gcc/config/s390/s390.c

@@ -6718,8 +6718,8 @@ s390_init_frame_layout (void)
       /* Try to predict whether we'll need the base register.  */
       base_used = cfun->machine->split_branches_pending_p
 		  || current_function_uses_const_pool
-		  || (!DISP_IN_RANGE (-frame_size)
-		      && !CONST_OK_FOR_K (-frame_size));
+		  || (!DISP_IN_RANGE (frame_size)
+		      && !CONST_OK_FOR_K (frame_size));
 
       /* Decide which register to use as literal pool base.  In small
 	 leaf functions, try to use an unused call-clobbered register

gcc/testsuite/ChangeLog

+2006-10-26  Andreas Krebbel  <krebbel1@de.ibm.com>
+
+	* gcc.dg/20061026.c: New testcase.
+
 2006-10-26  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
 	PR libgfortran/29563

gcc/testsuite/gcc.dg/20061026.c

+/* { dg-do compile } */
+/* { dg-options "-O1" } */
+
+/* This testcase failed on s390.  The frame size for function f will be
+   exactly 32768 bytes.  The back end has to recognize that this is to
+   large for a 16bit constant and therefore should reserve the literal
+   pool base pointer.  */
+
+int f () {
+  char a[32608];
+
+  g (a);
+}