diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-07-31 13:26:20 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-07-31 13:26:20 +0000 |
| commit | c28ff1cd16602b0da5d79cfb2c56a28d5e82ab37 (patch) | |
| tree | 3485dc576060bb6386e3168159f940540404e630 /gcc/ada/s-stausa.ads | |
| parent | a907f96c30dbfc4ceb6a3883676d10db58a40c9d (diff) | |
| download | gcc-c28ff1cd16602b0da5d79cfb2c56a28d5e82ab37.tar.gz | |
2008-07-31 Quentin Ochem <ochem@adacore.com>
* s-stausa.ad? (Fill_Stack): Stack_Used_When_Filling is now stored
anymore - just used internally.
Added handling of very small tasks - when the theoretical size is
already full at the point of the call.
(Report_Result): Fixed result computation, Stack_Used_When_Filling does
not need to be added to the result.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@138405 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-stausa.ads')
| -rw-r--r-- | gcc/ada/s-stausa.ads | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/gcc/ada/s-stausa.ads b/gcc/ada/s-stausa.ads index 8a6e2b67cb5..2aa9dd70d2d 100644 --- a/gcc/ada/s-stausa.ads +++ b/gcc/ada/s-stausa.ads @@ -304,10 +304,6 @@ private Result_Id : Positive; -- Id of the result. If less than value given to gnatbind -u corresponds -- to the location in the result array of result for the current task. - - Stack_Used_When_Filling : Natural := 0; - -- Amount of stack that was already used when actually filling the - -- memory, and therefore not analyzed. end record; Environment_Task_Analyzer : Stack_Analyzer; |