From c91dbd184bc0dde2d04895dc15a7fe169d7169d7 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 6 Feb 2013 11:24:21 +0100 Subject: [multiple changes] 2013-02-06 Javier Miranda * 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 * 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 * ug_words: Add -gnateY = /IGNORE_STYLE_CHECKS_PRAGMAS. 2013-02-06 Ed Schonberg * 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 --- gcc/ada/exp_util.adb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'gcc/ada/exp_util.adb') 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 -- cgit v1.1