diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2021-02-18 09:50:29 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-05-07 05:29:15 -0400 |
| commit | d3ab01f64a7db48239e41eea6740892cb3167dfd (patch) | |
| tree | 2cd6d003d3a3ded5807f1ab465e762581b6642d8 /gcc/ada/raise.h | |
| parent | a6d3b4990f9db77e2f6f7fa15d17b22ecea46e74 (diff) | |
| download | gcc-d3ab01f64a7db48239e41eea6740892cb3167dfd.zip gcc-d3ab01f64a7db48239e41eea6740892cb3167dfd.tar.gz gcc-d3ab01f64a7db48239e41eea6740892cb3167dfd.tar.bz2 | |
[Ada] Fix type mismatch warnings during LTO bootstrap #4
gcc/ada/
* libgnat/s-stalib.ads (Exception_Data): Mark components as aliased.
* stand.ads (Standard_Entity_Type): Enhance comments.
* cstand.adb (Make_Component): Rename into...
(Make_Aliased_Component): ...this; set Is_Aliased and Is_Independent
flags on the component.
(Create_Standard): Adjust the types of the component of the record
Standard_Exception_Type and mark them as aliased.
* exp_ch11.adb (Expand_N_Exception_Declaration): Use OK
conversion to Standard_Address for Full_Name component, except
in CodePeer_Mode (set it to 0).
* exp_prag.adb (Expand_Pragma_Import_Or_Interface): Likewise.
* raise.h (struct Exception_Data): Change the type of Full_Name,
HTable_Ptr and Foreign_Data.
Diffstat (limited to 'gcc/ada/raise.h')
| -rw-r--r-- | gcc/ada/raise.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/raise.h b/gcc/ada/raise.h index 0ea9b63..0288dd7 100644 --- a/gcc/ada/raise.h +++ b/gcc/ada/raise.h @@ -40,9 +40,9 @@ struct Exception_Data char Not_Handled_By_Others; char Lang; int Name_Length; - char *Full_Name; - char *Htable_Ptr; - void *Foreign_Data; + __UINTPTR_TYPE__ Full_Name; + void *HTable_Ptr; + __UINTPTR_TYPE__ Foreign_Data; void (*Raise_Hook)(void); }; |