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.
This commit is contained in:
Eric Botcazou 2021-10-01 10:56:45 +02:00
parent 021ad8e5cf
commit 97909f80fd
1 changed files with 8 additions and 1 deletions

View File

@ -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);
}