From 2beb22b15d7d2e8f781929a08cc8b6f31ec516e6 Mon Sep 17 00:00:00 2001 From: charlet Date: Mon, 30 Jul 2012 15:15:00 +0000 Subject: 2012-07-30 Robert Dewar * 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 --- gcc/ada/par_sco.adb | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) (limited to 'gcc/ada/par_sco.adb') 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, -- cgit v1.2.1