diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2021-02-17 10:27:41 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-05-07 05:29:16 -0400 |
| commit | d40dc31924972f90cef920a8f76b3042aefc065d (patch) | |
| tree | beee94959a474e5a30bcfd7be062f95634c4828b /gcc/ada/libgnat/a-exexpr.adb | |
| parent | d3ab01f64a7db48239e41eea6740892cb3167dfd (diff) | |
| download | gcc-d40dc31924972f90cef920a8f76b3042aefc065d.zip gcc-d40dc31924972f90cef920a8f76b3042aefc065d.tar.gz gcc-d40dc31924972f90cef920a8f76b3042aefc065d.tar.bz2 | |
[Ada] Fix type mismatch warnings during LTO bootstrap #5
gcc/ada/
* raise-gcc.c (__gnat_others_value): Remove const qualifier.
(__gnat_all_others_value): Likewise.
(__gnat_unhandled_others_value): Likewise.
(GNAT_OTHERS): Cast to Exception_Id instead of _Unwind_Ptr.
(GNAT_ALL_OTHERS): Likewise.
(GNAT_UNHANDLED_OTHERS): Likewise.
(Is_Handled_By_Others): Change parameter type to Exception_Id.
(Language_For): Likewise.
(Foreign_Data_For): Likewise.
(is_handled_by): Likewise. Adjust throughout, remove redundant
line and fix indentation.
* libgnat/a-exexpr.adb (Is_Handled_By_Others): Remove pragma and
useless qualification from parameter type.
(Foreign_Data_For): Likewise.
(Language_For): Likewise.
Diffstat (limited to 'gcc/ada/libgnat/a-exexpr.adb')
| -rw-r--r-- | gcc/ada/libgnat/a-exexpr.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/ada/libgnat/a-exexpr.adb b/gcc/ada/libgnat/a-exexpr.adb index f79a499..ff85bc5 100644 --- a/gcc/ada/libgnat/a-exexpr.adb +++ b/gcc/ada/libgnat/a-exexpr.adb @@ -282,7 +282,6 @@ package body Exception_Propagation is function Is_Handled_By_Others (E : Exception_Data_Ptr) return bool; pragma Export (C, Is_Handled_By_Others, "__gnat_is_handled_by_others"); - pragma Warnings (Off, Is_Handled_By_Others); function Language_For (E : Exception_Data_Ptr) return Character; pragma Export (C, Language_For, "__gnat_language_for"); @@ -688,7 +687,7 @@ package body Exception_Propagation is -- Foreign_Data_For -- ---------------------- - function Foreign_Data_For (E : SSL.Exception_Data_Ptr) return Address is + function Foreign_Data_For (E : Exception_Data_Ptr) return Address is begin return E.Foreign_Data; end Foreign_Data_For; @@ -697,7 +696,7 @@ package body Exception_Propagation is -- Is_Handled_By_Others -- -------------------------- - function Is_Handled_By_Others (E : SSL.Exception_Data_Ptr) return bool is + function Is_Handled_By_Others (E : Exception_Data_Ptr) return bool is begin return not bool (E.all.Not_Handled_By_Others); end Is_Handled_By_Others; @@ -706,7 +705,7 @@ package body Exception_Propagation is -- Language_For -- ------------------ - function Language_For (E : SSL.Exception_Data_Ptr) return Character is + function Language_For (E : Exception_Data_Ptr) return Character is begin return E.all.Lang; end Language_For; |