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 b3fa891fa7d58b29b6e9012688dbdc1bf9d28c2f..adea8dfcdc95a2e20c808efb69b332e5e3b5678a 100644 (file)
--- 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;