Skip to content

R
riscv-gcc-1
Commit 744ab580 by Quentin Ochem Committed by Arnaud Charlet
Options

s-stausa.adb (Initialize_Analyzer): fixed error in assignment of task name. 

2006-02-13  Quentin Ochem  <ochem@adacore.com>

	* s-stausa.adb (Initialize_Analyzer): fixed error in assignment of
	task name.

From-SVN: r111100
parent 62b80eaf
Showing with 3 additions and 3 deletions
gcc/ada/s-stausa.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2004-2005, Free Software Foundation, Inc. --
-- Copyright (C) 2004-2006, Free Software Foundation, Inc. --
-- --
-- GNARL is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -192,7 +192,7 @@ package body System.Stack_Usage is
Analyzer.Task_Name := (others => ' ');
if Task_Name'Length <= Task_Name_Length then
Analyzer.Task_Name (1 .. Task_Name_Length) := Task_Name;
Analyzer.Task_Name (1 .. Task_Name'Length) := Task_Name;
else
Analyzer.Task_Name :=
Task_Name (Task_Name'First ..
......@@ -288,7 +288,7 @@ package body System.Stack_Usage is
end if;
Set_Output (Standard_Error);
Put ("INDEX | TASK NAME | STACK SIZE | MAX USAGE");
Put ("Index | Task Name | Stack Size | Actual Use");
New_Line;
for J in Result_Array'Range loop
......
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