diff options
Diffstat (limited to 'gcc/ada/s-stausa.ads')
| -rw-r--r-- | gcc/ada/s-stausa.ads | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/s-stausa.ads b/gcc/ada/s-stausa.ads index 4da9c00aef8..b309c3735e8 100644 --- a/gcc/ada/s-stausa.ads +++ b/gcc/ada/s-stausa.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2004-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 2004-2008, 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- -- @@ -127,7 +127,7 @@ package System.Stack_Usage is -- this point, it will increase the measured stack size. -- Strategy: We could augment this stack frame and see if it changes the - -- measure. However, this error should be negligeable. + -- measure. However, this error should be negligible. -- Pattern zone overflow: @@ -225,7 +225,7 @@ package System.Stack_Usage is -- When this flag is true, then stack analysis is enabled procedure Compute_Result (Analyzer : in out Stack_Analyzer); - -- Read the patern zone and deduce the stack usage. It should be called + -- Read the pattern zone and deduce the stack usage. It should be called -- from the same frame as Fill_Stack. If Analyzer.Probe is not null, an -- array of Unsigned_32 with Analyzer.Probe elements is allocated on -- Compute_Result's stack frame. Probe can be used to detect the error: @@ -249,7 +249,7 @@ package System.Stack_Usage is procedure Report_Result (Analyzer : Stack_Analyzer); -- Store the results of the computation in memory, at the address -- corresponding to the symbol __gnat_stack_usage_results. This is not - -- done inside Compute_Resuls in order to use as less stack as possible + -- done inside Compute_Result in order to use as less stack as possible -- within a task. procedure Output_Results; @@ -281,7 +281,7 @@ private -- Pattern used to recognize untouched memory Bottom_Pattern_Mark : Stack_Address; - -- Bound of the pattern area on the stack clostest to the bottom + -- Bound of the pattern area on the stack closest to the bottom Top_Pattern_Mark : Stack_Address; -- Topmost bound of the pattern area on the stack @@ -334,7 +334,7 @@ private (SP_Low : Stack_Address; SP_High : Stack_Address) return Natural; pragma Inline (Stack_Size); - -- Return the size of a portion of stack delimeted by SP_High and SP_Low + -- Return the size of a portion of stack delimited by SP_High and SP_Low -- (), i.e. the difference between SP_High and SP_Low. The storage element -- pointed by SP_Low is not included in the size. Inlined to reduce the -- size of the stack used by the instrumentation code. |