diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2021-10-01 10:56:45 +0200 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@adacore.com> | 2021-10-01 10:56:45 +0200 |
| commit | 97909f80fde6c4ce2a2fa1e11b325a80c4741b8c (patch) | |
| tree | 44cea07dea819a3ab4a36cb12423733b4839c3a0 /gcc/explow.c | |
| parent | 021ad8e5cf9ab66e1a0a41dce3a54586facb86e0 (diff) | |
| download | gcc-97909f80fde6c4ce2a2fa1e11b325a80c4741b8c.zip gcc-97909f80fde6c4ce2a2fa1e11b325a80c4741b8c.tar.gz gcc-97909f80fde6c4ce2a2fa1e11b325a80c4741b8c.tar.bz2 | |
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.
Diffstat (limited to 'gcc/explow.c')
| -rw-r--r-- | gcc/explow.c | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/gcc/explow.c b/gcc/explow.c index b6da277..a35423f 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); } |