Skip to content

R
riscv-gcc-1
Commit 1923a3f9 by Arnaud Charlet
Options

Minor improvements. 

From-SVN: r146950
parent ac72c9c5
Showing with 4 additions and 4 deletions
gcc/ada/s-stusta.adb
------------------------------------------------------------------------------
-- --
-- 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;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment