diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-02-06 11:24:21 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-02-06 11:24:21 +0100 |
| commit | c91dbd184bc0dde2d04895dc15a7fe169d7169d7 (patch) | |
| tree | 101818bea7dd9a225ff9577318d645145d5b8615 /gcc/ada/exp_util.adb | |
| parent | ba08ba8412fb405d32184021400e1eda7b38b9a5 (diff) | |
| download | gcc-c91dbd184bc0dde2d04895dc15a7fe169d7169d7.zip gcc-c91dbd184bc0dde2d04895dc15a7fe169d7169d7.tar.gz gcc-c91dbd184bc0dde2d04895dc15a7fe169d7169d7.tar.bz2 | |
[multiple changes]
2013-02-06 Javier Miranda <miranda@adacore.com>
* exp_ch5.adb (Expand_N_Assignment_Statement): Do not generate the
runtime check on assignment to tagged types if compiling with checks
suppressed.
2013-02-06 Robert Dewar <dewar@adacore.com>
* exp_util.adb, checks.adb, sem_ch12.adb, sem_res.adb, prj-conf.adb,
s-os_lib.adb: Minor reformatting
2013-02-06 Vincent Celier <celier@adacore.com>
* ug_words: Add -gnateY = /IGNORE_STYLE_CHECKS_PRAGMAS.
2013-02-06 Ed Schonberg <schonberg@adacore.com>
* snames.ads-tmpl: Add Name_Rational and pragma Rational.
* par-prag.adb: Recognize pragma Rational.
* opt.ads (Rational_Profile): flag to control compatibility mode
with Rational compiler.
* sem_ch8.adb (Analyze_Subprogram_Renaming): When Rational profile
is enable, accept renaming declarations where the new subprogram
and the renamed entity have the same name.
* sem_prag.adb (analyze_pragma): Add pragma Rational, and recognize
Rational as a profile.
From-SVN: r195793
Diffstat (limited to 'gcc/ada/exp_util.adb')
| -rw-r--r-- | gcc/ada/exp_util.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index 3528fc9..1900a9f 100644 --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -7952,9 +7952,9 @@ package body Exp_Util is Par : Node_Id; begin - -- Locate an enclosing case or if expression. Note that these constructs - -- appear as expression_with_actions, hence the test using the original - -- node. + -- Locate an enclosing case or if expression. Note: these constructs can + -- get expanded into Expression_With_Actions, hence the need to test + -- using the original node. Par := N; while Present (Par) loop |