[gcc r11-9050] Fix ICE with stack checking emulation at -O2

[Eric Botcazou <ebotcazou@gcc.gnu.org>]

https://gcc.gnu.org/g:3aaa884141f832b9a678d44a80e2ececfc9fc090

commit r11-9050-g3aaa884141f832b9a678d44a80e2ececfc9fc090
Author: Eric Botcazou <ebotcazou@adacore.com>
Date:   Fri Oct 1 10:56:45 2021 +0200

    Fix ICE with stack checking emulation at -O2
    
    On bare-metal platforms, the Ada compiler emulates stack checking (it is
    required by the language and tested by ACATS) in the runtime via the
    stack_check_libfunc hook of the RTL middle-end.  Calls to the function
    are generated as libcalls but they now require a proper function type
    at -O2 or above.
    
    gcc/
            * explow.c: Include langhooks.h.
            (set_stack_check_libfunc): Build a proper function type.

Diff:
---
 gcc/explow.c | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/gcc/explow.c b/gcc/explow.c
index b6da277f689..a35423f5d16 100644
--- a/gcc/explow.c
+++ b/gcc/explow.c
@@ -34,6 +34,7 @@ along with GCC; see the file COPYING3.  If not see
 #include "recog.h"
 #include "diagnostic-core.h"
 #include "stor-layout.h"
+#include "langhooks.h"
 #include "except.h"
 #include "dojump.h"
 #include "explow.h"
@@ -1641,8 +1642,14 @@ set_stack_check_libfunc (const char *libfunc_name)
 {
   gcc_assert (stack_check_libfunc == NULL_RTX);
   stack_check_libfunc = gen_rtx_SYMBOL_REF (Pmode, libfunc_name);
+  tree ptype
+    = Pmode == ptr_mode
+      ? ptr_type_node
+      : lang_hooks.types.type_for_mode (Pmode, 1);
+  tree ftype
+    = build_function_type_list (void_type_node, ptype, NULL_TREE);
   tree decl = build_decl (UNKNOWN_LOCATION, FUNCTION_DECL,
-			  get_identifier (libfunc_name), void_type_node);
+			  get_identifier (libfunc_name), ftype);
   DECL_EXTERNAL (decl) = 1;
   SET_SYMBOL_REF_DECL (stack_check_libfunc, decl);
 }