diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-29 12:50:37 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-29 12:50:37 +0200 |
| commit | 1923a3f9d89d4869783647a43468073ab27e629a (patch) | |
| tree | 603708692a15bdd01fbc9a20d50ff1bb56c508d4 /gcc | |
| parent | ac72c9c53779907040fa8dfb0caf199cd890ac32 (diff) | |
| download | gcc-1923a3f9d89d4869783647a43468073ab27e629a.zip gcc-1923a3f9d89d4869783647a43468073ab27e629a.tar.gz gcc-1923a3f9d89d4869783647a43468073ab27e629a.tar.bz2 | |
Minor improvements.
From-SVN: r146950
Diffstat (limited to 'gcc')
| -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 b3fa891..adea8df 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; |