diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-04 15:41:55 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-04 15:41:55 +0200 |
| commit | 2ba7e31e7e1c77b639c88aff631900ab7db5958b (patch) | |
| tree | fd677c39de60bb95b906b1170abe8bdfde73da29 /gcc/ada/s-stusta.adb | |
| parent | 1bf773bb9fb7ab8169e9c185a903f3c618b6bf75 (diff) | |
| download | gcc-2ba7e31e7e1c77b639c88aff631900ab7db5958b.zip gcc-2ba7e31e7e1c77b639c88aff631900ab7db5958b.tar.gz gcc-2ba7e31e7e1c77b639c88aff631900ab7db5958b.tar.bz2 | |
[multiple changes]
2011-08-04 Yannick Moy <moy@adacore.com>
* sem_prag.adb, sem.ads: Code cleanup.
2011-08-04 Tristan Gingold <gingold@adacore.com>
* s-tassta.adb (Task_Wrapper): Rewrite the dynamic stack usage part.
* s-stausa.adb, s-stausa.ads: Major rewrite. Now provides accurate
results if possible.
* s-stusta.adb (Print): Adjust after changes in s-stausa.
* gnat_ugn.texi: Update dynamic stack usage section.
2011-08-04 Steve Baird <baird@adacore.com>
* bindgen.adb (Gen_CodePeer_Wrapper): new procedure.
Generate (if CodePeer_Mode is set) a "wrapper" subprogram which
contains only a call to the user-defined main subprogram.
(Gen_Main_Ada) - If CodePeer_Mode is set, then
call the "wrapper" subprogram instead of directly
calling the user-defined main subprogram.
2011-08-04 Hristian Kirtchev <kirtchev@adacore.com>
* exp_ch5.adb (Expand_N_Case_Statement): Check the statements of all
alternatives of a case statement for controlled objects. Rename local
variable A to Dead_Alt.
(Expand_N_If_Statement): Check the then and else statements of an if
statement for controlled objects. Check the then statements of all
elsif parts of an if statement for controlled objects.
(Expand_N_Loop_Statement): Check the statements of a loop for controlled
objects.
* exp_ch7.adb (Process_Transient_Objects): Rewrite the condition which
detects a loop associated with the expansion of an array object.
Augment the processing of the loop statements to account for a possible
wrap done by Process_Statements_For_Controlled_Objects.
* exp_ch9.adb (Expand_N_Asynchronous_Select): Check the triggering
statements and abortable part of an asynchronous select for controlled
objects.
(Expand_N_Conditional_Entry_Call): Check the else statements of a
conditional entry call for controlled objects.
(Expand_N_Selective_Accept): Check the alternatives of a selective
accept for controlled objects.
(Expand_N_Timed_Entry_Call): Check the entry call and delay
alternatives of a timed entry call for controlled objects.
* exp_ch11.adb (Expand_Exception_Handlers): Check the statements of an
exception handler for controlled objects.
* exp_util.adb (Requires_Cleanup_Actions (List_Id, Boolean, Boolean)):
Add formal parameter Nested_Constructs along with its associated
comment.
(Requires_Cleanup_Actions (Node_Id)): Update all calls to
Requires_Cleanup_Actions.
(Process_Statements_For_Controlled_Objects): New routine.
* exp_util.ads (Process_Statements_For_Controlled_Objects): New
routine. Inspect a node which contains a non-handled sequence of
statements for controlled objects. If such an object is found, the
statements are wrapped in a block.
From-SVN: r177386
Diffstat (limited to 'gcc/ada/s-stusta.adb')
| -rw-r--r-- | gcc/ada/s-stusta.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/ada/s-stusta.adb b/gcc/ada/s-stusta.adb index da925a7..8961759 100644 --- a/gcc/ada/s-stusta.adb +++ b/gcc/ada/s-stusta.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2009-2010, Free Software Foundation, Inc. -- +-- Copyright (C) 2009-2011, Free Software Foundation, Inc. -- -- -- -- GNAT 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- -- @@ -250,9 +250,8 @@ package body System.Stack_Usage.Tasking is Obj.Task_Name (Obj.Task_Name'First .. Pos); begin Put_Line - ("| " & T_Name & " | " & Natural'Image (Obj.Max_Size) & - Natural'Image (Obj.Value) & " +/- " & - Natural'Image (Obj.Variation)); + ("| " & T_Name & " | " & Natural'Image (Obj.Stack_Size) & + Natural'Image (Obj.Value)); end; end Print; |