re PR middle-end/20548 (ACATS c52103x c52104x c52104y segfault)

	PR ada/20548
	* explow.c (probe_stack_range): Fix typo.
	* config/sparc/sparc.md (probe_stack): New expander.

From-SVN: r154061

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index f21b99288c7602c8c4a52def3f4394b4060dec20..20477c40060754b043b5ce6b96b6ca33f341138d 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,9 @@
+2009-11-10  Eric Botcazou  <ebotcazou@adacore.com>
+
+       PR ada/20548
+       * explow.c (probe_stack_range): Fix typo.
+       * config/sparc/sparc.md (probe_stack): New expander.
+
 2009-11-09  Dave Korn  <dave.korn.cygwin@gmail.com>
 
        * config/i386/cygwin.h (LINK_SPEC): Add -tsaware flag if !mno-cygwin.

diff --git a/gcc/config/sparc/sparc.md b/gcc/config/sparc/sparc.md
index 516779200a93028c4cc0295fc2309ec89dcfaecd..caf84437ecfaf6e72cdfc97b3e1bf85d6d0175c3 100644 (file)
--- a/gcc/config/sparc/sparc.md
+++ b/gcc/config/sparc/sparc.md
@@ -6277,6 +6277,14 @@
   ""
   [(set_attr "length" "0")])
 
+(define_expand "probe_stack"
+  [(set (match_operand 0 "memory_operand" "") (const_int 0))]
+  ""
+{
+  operands[0]
+    = adjust_address (operands[0], GET_MODE (operands[0]), SPARC_STACK_BIAS);
+})
+
 ;; Prepare to return any type including a structure value.
 
 (define_expand "untyped_return"

diff --git a/gcc/explow.c b/gcc/explow.c
index 0bbbc003f6d95d1c5510c417f135ef2be48921ef..a887849816b1e468cd2c9925b43bf083285fe88b 100644 (file)
--- a/gcc/explow.c
+++ b/gcc/explow.c
@@ -1404,7 +1404,8 @@ probe_stack_range (HOST_WIDE_INT first, rtx size)
                                 gen_rtx_fmt_ee (STACK_GROW_OP, Pmode,
                                                 stack_pointer_rtx,
                                                 plus_constant (size, first)));
-      emit_library_call (stack_check_libfunc, LCT_NORMAL, VOIDmode, 1, addr);
+      emit_library_call (stack_check_libfunc, LCT_NORMAL, VOIDmode, 1, addr,
+                        Pmode);
     }
 
   /* Next see if we have an insn to check the stack.  */