diff options
| author | Bob Duff <duff@adacore.com> | 2023-02-08 11:46:10 -0500 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2023-05-22 10:44:10 +0200 |
| commit | 25e4024cd14057d2cac955acc7ad87dd83b6c844 (patch) | |
| tree | af5989dccf091329ed64f9a94bc2c8bdbe58c10f /gcc/ada/sem_ch6.adb | |
| parent | ea97b4dbee9eaf4c88228ded8b7c56351a2b1659 (diff) | |
| download | gcc-25e4024cd14057d2cac955acc7ad87dd83b6c844.zip gcc-25e4024cd14057d2cac955acc7ad87dd83b6c844.tar.gz gcc-25e4024cd14057d2cac955acc7ad87dd83b6c844.tar.bz2 | |
ada: Rename Is_Past_Self_Hiding_Point flag to be Is_Not_Self_Hidden
...which seems clearer.
Still work in progress.
gcc/ada/
* cstand.adb (Is_Past_Self_Hiding_Point): Rename to be
Is_Not_Self_Hidden.
* einfo.ads: Likewise.
* exp_aggr.adb: Likewise.
* gen_il-fields.ads: Likewise.
* gen_il-gen-gen_entities.adb: Likewise.
* sem.adb: Likewise.
* sem_aggr.adb: Likewise.
* sem_ch11.adb: Likewise.
* sem_ch12.adb: Likewise.
* sem_ch5.adb: Likewise.
* sem_ch6.adb: Likewise.
* sem_ch7.adb: Likewise.
* sem_prag.adb: Likewise.
Diffstat (limited to 'gcc/ada/sem_ch6.adb')
| -rw-r--r-- | gcc/ada/sem_ch6.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb index df06967..0b374c2 100644 --- a/gcc/ada/sem_ch6.adb +++ b/gcc/ada/sem_ch6.adb @@ -5245,7 +5245,7 @@ package body Sem_Ch6 is Set_Etype (Designator, Standard_Void_Type); end if; - Set_Is_Past_Self_Hiding_Point (Designator); + Set_Is_Not_Self_Hidden (Designator); -- Flag Is_Inlined_Always is True by default, and reversed to False for -- those subprograms which could be inlined in GNATprove mode (because @@ -13427,7 +13427,7 @@ package body Sem_Ch6 is Mutate_Ekind (Formal_Id, E_In_Parameter); end if; - Set_Is_Past_Self_Hiding_Point (Formal_Id); + Set_Is_Not_Self_Hidden (Formal_Id); -- Set Is_Known_Non_Null for access parameters since the language -- guarantees that access parameters are always non-null. We also set |