diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-04-27 15:22:48 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-04-27 15:22:48 +0200 |
commit | ac566cbe4b11e71b0c9c3b595e1787fe06487310 (patch) | |
tree | 888a982c8d5a20b6f3cf5a35c09d9e6708edb2a6 /gcc/ada/sem_case.ads | |
parent | 6616e390695caad491386d19621b4014efaf394f (diff) | |
download | gcc-ac566cbe4b11e71b0c9c3b595e1787fe06487310.zip gcc-ac566cbe4b11e71b0c9c3b595e1787fe06487310.tar.gz gcc-ac566cbe4b11e71b0c9c3b595e1787fe06487310.tar.bz2 |
[multiple changes]
2016-04-27 Arnaud Charlet <charleT@adacore.com>
* sinput-l.ads, sem_ch13.adb: Minor editing.
2016-04-27 Doug Rupp <rupp@adacore.com>
* init.c (__gnat_adjust_context_for_raise) [arm-linux thumb]:
Bump the pc so the lower order bit is set.
2016-04-27 Ed Schonberg <schonberg@adacore.com>
* sem_case.adb, sem_case.ads (NO_Op): If appropriate warning is
enabled, report an empty range in a case construct.
From-SVN: r235503
Diffstat (limited to 'gcc/ada/sem_case.ads')
-rw-r--r-- | gcc/ada/sem_case.ads | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/ada/sem_case.ads b/gcc/ada/sem_case.ads index c6917f0..9e9e828 100644 --- a/gcc/ada/sem_case.ads +++ b/gcc/ada/sem_case.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1996-2013, Free Software Foundation, Inc. -- +-- Copyright (C) 1996-2016, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -86,9 +86,10 @@ with Types; use Types; package Sem_Case is procedure No_OP (C : Node_Id); - -- The no-operation routine. Does absolutely nothing. Can be used + -- The no-operation routine. Does mostly nothing. Can be used -- in the following generics for the parameters Process_Empty_Choice, - -- or Process_Associated_Node. + -- or Process_Associated_Node. In the case of an empty range choice, + -- routine emits a warning when Warn_On_Redundant_Constructs is enabled. generic with procedure Process_Associated_Node (A : Node_Id); |