diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-11 10:10:01 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-11 10:10:01 +0000 |
commit | c7f8b0658b37e855fa37de129555fb96012f0c2c (patch) | |
tree | 2930ab4c0d43a78f782281dd4e092f630a6ad5f0 /gcc/ada/exp_util.adb | |
parent | 51c733e0f6b4311d6dedf8a494d6fb79a2dd8198 (diff) | |
download | gcc-c7f8b0658b37e855fa37de129555fb96012f0c2c.tar.gz |
2010-10-11 Robert Dewar <dewar@adacore.com>
* exp_ch6.adb: Code clean up.
* exp_util.adb: Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165294 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_util.adb')
-rw-r--r-- | gcc/ada/exp_util.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index 980f0f6e80b..a0c641bdce0 100644 --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -4842,7 +4842,7 @@ package body Exp_Util is -- No action needed for renamings of class-wide expressions because for -- class-wide types Remove_Side_Effects uses a renaming to capture the -- expression (and hence we would generate a never-ending loop in the - -- frontend). + -- front end). if Is_Class_Wide_Type (Exp_Type) and then Nkind (Parent (Exp)) = N_Object_Renaming_Declaration |