diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2021-02-16 09:00:11 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-05-07 05:29:13 -0400 |
| commit | d6de75d526bf5958fe9e66195dc0bf1c458e9b06 (patch) | |
| tree | cf6f7cffd901b1bce80ac5ef76b48dd9cc166af5 /gcc/ada/seh_init.c | |
| parent | b0ba442b047dcffd54055c9d0ab591d020a284d8 (diff) | |
| download | gcc-d6de75d526bf5958fe9e66195dc0bf1c458e9b06.zip gcc-d6de75d526bf5958fe9e66195dc0bf1c458e9b06.tar.gz gcc-d6de75d526bf5958fe9e66195dc0bf1c458e9b06.tar.bz2 | |
[Ada] Fix type mismatch warnings during LTO bootstrap #2
gcc/ada/
* init.c (__gnat_raise_program_error): Fix parameter type.
(Raise_From_Signal_Handler): Likewise and mark as no-return.
* raise-gcc.c (__gnat_others_value): Fix type.
(__gnat_all_others_value): Likewise.
(__gnat_unhandled_others_value): Likewise.
* seh_init.c (Raise_From_Signal_Handler): Fix parameter type.
* libgnat/a-except.ads (Raise_From_Signal_Handler): Use convention C
and new symbol name, move declaration to...
(Raise_From_Controlled_Operation): Minor tweak.
* libgnat/a-except.adb (Raise_From_Signal_Handler): ...here.
* libgnat/a-exexpr.adb (bool): New C compatible boolean type.
(Is_Handled_By_Others): Use it as return type for the function.
Diffstat (limited to 'gcc/ada/seh_init.c')
| -rw-r--r-- | gcc/ada/seh_init.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/seh_init.c b/gcc/ada/seh_init.c index 3ddbfbe..6d169a9 100644 --- a/gcc/ada/seh_init.c +++ b/gcc/ada/seh_init.c @@ -64,8 +64,8 @@ extern struct Exception_Data storage_error; extern struct Exception_Data tasking_error; extern struct Exception_Data _abort_signal; -#define Raise_From_Signal_Handler ada__exceptions__raise_from_signal_handler -extern void Raise_From_Signal_Handler (struct Exception_Data *, const char *) +#define Raise_From_Signal_Handler __gnat_raise_from_signal_handler +extern void Raise_From_Signal_Handler (struct Exception_Data *, const void *) ATTRIBUTE_NORETURN; |