aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/sem_ch11.adb
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2011-08-05 17:17:37 +0200
committerArnaud Charlet <charlet@gcc.gnu.org>2011-08-05 17:17:37 +0200
commita2773bd3e6fd84714d9568ebc9e15bc46dcd1c6f (patch)
treeba708f88b444bcbc812ada1c70ff45ef811962f8 /gcc/ada/sem_ch11.adb
parentaca0b0b315f6e5a0ee60981fd4b0cbc9a7f59096 (diff)
downloadgcc-a2773bd3e6fd84714d9568ebc9e15bc46dcd1c6f.zip
gcc-a2773bd3e6fd84714d9568ebc9e15bc46dcd1c6f.tar.gz
gcc-a2773bd3e6fd84714d9568ebc9e15bc46dcd1c6f.tar.bz2
[multiple changes]
2011-08-05 Thomas Quinot <quinot@adacore.com> * sem_ch11.adb: Add comment. 2011-08-05 Robert Dewar <dewar@adacore.com> * exp_util.adb: Minor comment fix. 2011-08-05 Robert Dewar <dewar@adacore.com> * scng.adb (Error_Unterminated_String): Improve flag position when comma present. 2011-08-05 Matthew Heaney <heaney@adacore.com> * Makefile.rtl, impunit.adb: Added a-cbmutr.ad[sb] (bounded multiway tree containers). * a-cbmutr.ads, a-cbmutr.adb: This is the new Ada 2012 unit for bounded multiway tree containers. 2011-08-05 Robert Dewar <dewar@adacore.com> * styleg.adb (Check_Comment): Implement comment spacing of 1 or 2 * stylesw.adb: Implement -gnatyC to control comment spacing * stylesw.ads (Style_Check_Comments_Spacing): New switch (set by -gnatyc/C). * usage.adb: Add line for -gnatyC. 2011-08-05 Robert Dewar <dewar@adacore.com> * gnat_ugn.texi: Document -gnatyC for J505-006 * vms_data.ads: Implement COMMENTS1/COMMENTS2 (retaining COMMENTS as a synonym for COMMENTS2). From-SVN: r177453
Diffstat (limited to 'gcc/ada/sem_ch11.adb')
-rw-r--r--gcc/ada/sem_ch11.adb5
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/ada/sem_ch11.adb b/gcc/ada/sem_ch11.adb
index a393680..d3d8528 100644
--- a/gcc/ada/sem_ch11.adb
+++ b/gcc/ada/sem_ch11.adb
@@ -481,7 +481,10 @@ package body Sem_Ch11 is
-- handler, since this may result in false positives, since
-- the handler may handle the exception and return normally.
- -- First find enclosing sequence of statements
+ -- First find the enclosing handled sequence of statements
+ -- (note, we could also look for a handler in an outer block
+ -- but currently we don't, and in that case we'll emit the
+ -- warning).
Par := N;
loop