From: charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Wed, 29 Apr 2009 10:50:37 +0000 (+0000)
Subject: Minor improvements.
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=618b1e9b6bd71d2c7662d0afc71d3e24b75eb0e2;p=thirdparty%2Fgcc.git

Minor improvements.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146950 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/ada/s-stusta.adb b/gcc/ada/s-stusta.adb
index b3fa891fa7d5..adea8dfcdc95 100644
--- a/gcc/ada/s-stusta.adb
+++ b/gcc/ada/s-stusta.adb
@@ -1,8 +1,8 @@
 ------------------------------------------------------------------------------
 --                                                                          --
---                  GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS                --
+--                 GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS                 --
 --                                                                          --
---             S Y S T E M . S T A C K _ U S A G E . T AS K I N G           --
+--            S Y S T E M . S T A C K _ U S A G E . T A S K I N G           --
 --                                                                          --
 --                                  B o d y                                 --
 --                                                                          --
@@ -252,9 +252,9 @@ package body System.Stack_Usage.Tasking is
            (Obj.Task_Name'First .. Pos);
       begin
          Put_Line
-           ("| " & T_Name & " | " & Natural'Image (Obj.Max_Size) & " [" &
+           ("| " & T_Name & " | " & Natural'Image (Obj.Max_Size) &
             Natural'Image (Obj.Value) & " +/- " &
-            Natural'Image (Obj.Variation) & "]");
+            Natural'Image (Obj.Variation));
       end;
    end Print;