diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-07-30 15:15:00 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-07-30 15:15:00 +0000 |
commit | 2beb22b15d7d2e8f781929a08cc8b6f31ec516e6 (patch) | |
tree | 10b4ccca210f1b877b9404f282c4e6fd1996100a /gcc/ada/par_sco.adb | |
parent | 7c3537be7ec41897478ec5b892df75ceb71c6980 (diff) | |
download | gcc-2beb22b15d7d2e8f781929a08cc8b6f31ec516e6.tar.gz |
2012-07-30 Robert Dewar <dewar@adacore.com>
* par_sco.adb, a-cihama.adb, a-coinve.adb, exp_ch7.adb, a-ciorse.adb,
exp_ch9.adb, sem_dim.adb, par-ch13.adb, sem_ch9.adb, a-cidlli.adb,
a-cimutr.adb, freeze.adb, a-ciormu.adb, sem_res.adb, sem_attr.adb,
a-cihase.adb, exp_ch4.adb, sem_ch4.adb, a-ciorma.adb,
s-tasinf-linux.ads, sem_ch13.adb, a-coinho.adb: Minor reformatting.
Add comments.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@189977 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/par_sco.adb')
-rw-r--r-- | gcc/ada/par_sco.adb | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/gcc/ada/par_sco.adb b/gcc/ada/par_sco.adb index fd1d887284f..73b00c24ee9 100644 --- a/gcc/ada/par_sco.adb +++ b/gcc/ada/par_sco.adb @@ -492,13 +492,16 @@ package body Par_SCO is -- For entry guard, the token sloc is from the N_Entry_Body. -- For PRAGMA, we must get the location from the pragma node. - -- Argument N is the pragma argument, and we have to go up two - -- levels (through the pragma argument association) to get to - -- the pragma node itself. For the guard on a select - -- alternative, we do not have access to the token location - -- for the WHEN, so we use the first sloc of the condition - -- itself (note: we use First_Sloc, not Sloc, because this is - -- what is referenced by dominance markers). + -- Argument N is the pragma argument, and we have to go up + -- two levels (through the pragma argument association) to + -- get to the pragma node itself. For the guard on a select + -- alternative, we do not have access to the token location for + -- the WHEN, so we use the first sloc of the condition itself + -- (note: we use First_Sloc, not Sloc, because this is what is + -- referenced by dominance markers). + + -- Doesn't this requirement of using First_Sloc need to be + -- documented in the spec ??? if Nkind_In (Parent (N), N_Accept_Alternative, N_Delay_Alternative, |