aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/sprint.adb
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2014-02-04 15:25:46 +0100
committerArnaud Charlet <charlet@gcc.gnu.org>2014-02-04 15:25:46 +0100
commitebdaa81b017726b7d7bd6407c77bcbb1dd97702f (patch)
tree54d703e76707252f2b3c71da82620899bd029943 /gcc/ada/sprint.adb
parent029ce7a26d8b23eee3096ff9f8424480c7dae6dd (diff)
downloadgcc-ebdaa81b017726b7d7bd6407c77bcbb1dd97702f.zip
gcc-ebdaa81b017726b7d7bd6407c77bcbb1dd97702f.tar.gz
gcc-ebdaa81b017726b7d7bd6407c77bcbb1dd97702f.tar.bz2
[multiple changes]
2014-02-04 Gary Dismukes <dismukes@adacore.com> * g-comlin.adb: Minor typo fix. 2014-02-04 Ed Schonberg <schonberg@adacore.com> * freeze.adb (Freeze_All): Types derived from a formal access_to_classwide type do not have a finalization master. 2014-02-04 Robert Dewar <dewar@adacore.com> * sprint.adb: Minor reformatting. 2014-02-04 Robert Dewar <dewar@adacore.com> * exp_ch4.adb (Expand_N_Expression_With_Actions): Eliminate cases where Actions is a null list. * sinfo.ads (N_Expression_With_Actions): Actions can be temporarily empty during semantic analysis, but must be non-empty in the final expanded tree. From-SVN: r207466
Diffstat (limited to 'gcc/ada/sprint.adb')
-rw-r--r--gcc/ada/sprint.adb2
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb
index 1f88158..e909474 100644
--- a/gcc/ada/sprint.adb
+++ b/gcc/ada/sprint.adb
@@ -1131,7 +1131,7 @@ package body Sprint is
if Present (Identifier (Node))
and then (not Has_Created_Identifier (Node)
- or else not Dump_Original_Only)
+ or else not Dump_Original_Only)
then
Write_Rewrite_Str ("<<<");
Write_Id (Identifier (Node));