diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-29 10:50:37 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-29 10:50:37 +0000 |
| commit | 618b1e9b6bd71d2c7662d0afc71d3e24b75eb0e2 (patch) | |
| tree | 603708692a15bdd01fbc9a20d50ff1bb56c508d4 | |
| parent | a3e6563b2930eda54247c93617c90def3659c129 (diff) | |
| download | gcc-618b1e9b6bd71d2c7662d0afc71d3e24b75eb0e2.tar.gz | |
Minor improvements.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146950 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/ada/s-stusta.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/s-stusta.adb b/gcc/ada/s-stusta.adb index b3fa891fa7d..adea8dfcdc9 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; |