diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2021-12-03 19:43:23 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-01-06 17:11:33 +0000 |
| commit | 7f08c075994ac37172ff31f6633d6310d5327090 (patch) | |
| tree | 2a08f0030dc483469070f7dabc34dfac5b25774e /gcc/ada/cstand.adb | |
| parent | f64a1bfaddab7d272224b80560f3a64dae28d6ea (diff) | |
| download | gcc-7f08c075994ac37172ff31f6633d6310d5327090.zip gcc-7f08c075994ac37172ff31f6633d6310d5327090.tar.gz gcc-7f08c075994ac37172ff31f6633d6310d5327090.tar.bz2 | |
[Ada] Rename Any_Access into Universal_Access
gcc/ada/
* stand.ads (Any_Access): Delete.
(Universal_Access): New entity.
* einfo.ads: Remove obsolete reference to Any_Access.
* gen_il-gen-gen_entities.adb: Likewise.
* cstand.adb (Create_Standard): Do not create Any_Access and create
Universal_Access as a full type instead.
* errout.adb (Set_Msg_Insertion_Type_Reference): Do not deal with
Any_Access and deal with Universal_Access instead.
* sem_ch3.adb (Analyze_Object_Declaration): Replace Any_Access with
Universal_Access.
* sem_ch4.adb (Analyze_Null): Likewise.
(Find_Non_Universal_Interpretations): Likewise.
(Find_Equality_Types.Try_One_Interp): Likewise and avoid shadowing
by renaming a local variable of the same name.
* sem_res.adb (Make_Call_Into_Operato): Likewise.
(Resolve_Equality_Op): Likewise.
* sem_type.adb (Covers): Likewise.
(Specific_Type): Likewise.
Diffstat (limited to 'gcc/ada/cstand.adb')
| -rw-r--r-- | gcc/ada/cstand.adb | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/gcc/ada/cstand.adb b/gcc/ada/cstand.adb index 3822d93..8b04e5e 100644 --- a/gcc/ada/cstand.adb +++ b/gcc/ada/cstand.adb @@ -1191,15 +1191,6 @@ package body CStand is pragma Assert (not Known_Esize (Any_Id)); pragma Assert (not Known_Alignment (Any_Id)); - Any_Access := New_Standard_Entity ("an access type"); - Mutate_Ekind (Any_Access, E_Access_Type); - Set_Scope (Any_Access, Standard_Standard); - Set_Etype (Any_Access, Any_Access); - Init_Size (Any_Access, System_Address_Size); - Set_Elem_Alignment (Any_Access); - Set_Directly_Designated_Type - (Any_Access, Any_Type); - Any_Character := New_Standard_Entity ("a character type"); Mutate_Ekind (Any_Character, E_Enumeration_Type); Set_Scope (Any_Character, Standard_Standard); @@ -1416,6 +1407,16 @@ package body CStand is Set_Size_Known_At_Compile_Time (Universal_Fixed); + Universal_Access := New_Standard_Entity ("universal_access"); + Decl := New_Node (N_Full_Type_Declaration, Stloc); + Set_Defining_Identifier (Decl, Universal_Access); + Mutate_Ekind (Universal_Access, E_Access_Type); + Set_Etype (Universal_Access, Universal_Access); + Set_Scope (Universal_Access, Standard_Standard); + Init_Size (Universal_Access, System_Address_Size); + Set_Elem_Alignment (Universal_Access); + Set_Directly_Designated_Type (Universal_Access, Any_Type); + -- Create type declaration for Duration, using a 64-bit size. The -- delta and size values depend on the mode set in system.ads. |