diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2019-12-19 05:31:47 -0500 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-02 04:58:29 -0400 |
| commit | 65f1ca2e3d8778cd3e756ae3fe100313f43d081b (patch) | |
| tree | ca908d991a601161ab9f618e78a165b2802c4ca5 /gcc/ada/sem_case.ads | |
| parent | 646204de717040064c18c189e29a32d0d33fd08b (diff) | |
| download | gcc-65f1ca2e3d8778cd3e756ae3fe100313f43d081b.zip gcc-65f1ca2e3d8778cd3e756ae3fe100313f43d081b.tar.gz gcc-65f1ca2e3d8778cd3e756ae3fe100313f43d081b.tar.bz2 | |
[Ada] Remove ASIS_Mode
2020-06-02 Arnaud Charlet <charlet@adacore.com>
gcc/ada/
* atree.ads, checks.adb, contracts.adb, debug.adb, einfo.ads,
exp_ch3.adb, exp_util.adb, expander.ads, expander.adb,
frontend.adb, gnat1drv.adb, itypes.adb, lib.ads, namet.ads,
opt.adb, opt.ads, par-prag.adb, repinfo.ads, sem_aggr.adb,
sem_aux.ads, sem_case.ads, sem_ch10.adb, sem_ch12.adb,
sem_ch13.adb, sem_ch3.adb, sem_ch4.adb, sem_ch6.adb,
sem_dim.adb, sem_elab.adb, sem_prag.adb, sem_prag.ads,
sem_res.adb, sem_type.adb, sem_util.adb, sinfo.ads, stand.ads,
tree_io.ads: Remove references to ASIS_Mode.
Diffstat (limited to 'gcc/ada/sem_case.ads')
| -rw-r--r-- | gcc/ada/sem_case.ads | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/gcc/ada/sem_case.ads b/gcc/ada/sem_case.ads index bf49a93..16fa243 100644 --- a/gcc/ada/sem_case.ads +++ b/gcc/ada/sem_case.ads @@ -49,8 +49,7 @@ -- 4. In the case of static predicates, we need to expand out choices that -- correspond to the predicate for the back end. This expansion destroys --- the list of choices, so it should be delayed to expansion time. We do --- not want to mess up the -gnatct ASIS tree, which needs to be able to +-- the list of choices, so it should be delayed to expansion time. -- Step 1 is performed by the generic procedure Analyze_Choices, which is -- called when the variant record or case statement/expression is first @@ -66,12 +65,9 @@ -- for predicated subtypes to accurately construct this. -- Step 4 is performed by the procedure Expand_Static_Predicates_In_Choices. --- For case statements, this call only happens during expansion, so the tree --- generated for ASIS does not have this expansion. For the Variant case, the --- expansion is done in the ASIS -gnatct case, but with a proper Rewrite call --- on the N_Variant node, so ASIS can retrieve the original. The reason we do --- the expansion unconditionally for variants is that other processing, for --- example for aggregates, relies on having a complete list of choices. +-- For case statements, this call only happens during expansion. The reason +-- we do the expansion unconditionally for variants is that other processing, +-- for example for aggregates, relies on having a complete list of choices. -- Historical note: We used to perform all four of these functions at once in -- a single procedure called Analyze_Choices. This routine was called at the |