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.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.adb')
| -rw-r--r-- | gcc/ada/sem.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/sem.adb b/gcc/ada/sem.adb index b0b492b0..3bff8d2 100644 --- a/gcc/ada/sem.adb +++ b/gcc/ada/sem.adb @@ -760,7 +760,7 @@ package body Sem is Debug_A_Exit ("analyzing ", N, " (done)"); - -- Set Is_Past_Self_Hiding_Point flag. RM-8.3(16) says a declaration + -- Set Is_Not_Self_Hidden flag. RM-8.3(16) says a declaration -- is no longer hidden from all visibility after "the end of the -- declaration", so we set the flag here (in addition to setting it -- elsewhere to handle the "except..." cases of 8.3(16)). However, @@ -777,8 +777,8 @@ package body Sem is and then Ekind (Scope (E)) = E_Record_Type then null; -- Set it later, in Analyze_Component_Declaration - elsif not Is_Past_Self_Hiding_Point (E) then - Set_Is_Past_Self_Hiding_Point (E); + elsif not Is_Not_Self_Hidden (E) then + Set_Is_Not_Self_Hidden (E); end if; end if; end; |