aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBob Duff <duff@adacore.com>2018-05-30 08:57:38 +0000
committerPierre-Marie de Rodat <pmderodat@gcc.gnu.org>2018-05-30 08:57:38 +0000
commit83d849a82572a11104ea861b16ca5a8a6451ae3b (patch)
tree56f8da3086d2e5ee458424392ea23c6a97521710
parentdc67cfeaec73c486ae9018c75710feb3b94545bd (diff)
downloadgcc-83d849a82572a11104ea861b16ca5a8a6451ae3b.zip
gcc-83d849a82572a11104ea861b16ca5a8a6451ae3b.tar.gz
gcc-83d849a82572a11104ea861b16ca5a8a6451ae3b.tar.bz2
[Ada] Minor comment rework in GNAT.Secondary_Stack_Info
2018-05-30 Bob Duff <duff@adacore.com> gcc/ada/ * libgnat/g-sestin.ads: Rework documentation comments. From-SVN: r260936
-rw-r--r--gcc/ada/ChangeLog4
-rw-r--r--gcc/ada/libgnat/g-sestin.ads8
2 files changed, 5 insertions, 7 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 8a5b510..330a11e 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2018-05-30 Bob Duff <duff@adacore.com>
+
+ * libgnat/g-sestin.ads: Rework documentation comments.
+
2018-05-30 Piotr Trojanek <trojanek@adacore.com>
* errout.adb, exp_aggr.adb, exp_ch7.adb, exp_util.adb, lib.adb,
diff --git a/gcc/ada/libgnat/g-sestin.ads b/gcc/ada/libgnat/g-sestin.ads
index 82ab200..58ad3fc 100644
--- a/gcc/ada/libgnat/g-sestin.ads
+++ b/gcc/ada/libgnat/g-sestin.ads
@@ -30,7 +30,7 @@
------------------------------------------------------------------------------
-- This package provides facilities for obtaining information on secondary
--- stack usage.
+-- stack usage. See System.Secondary_Stack for documentation.
with System.Secondary_Stack;
@@ -38,11 +38,5 @@ package GNAT.Secondary_Stack_Info is
function SS_Get_Max return Long_Long_Integer
renames System.Secondary_Stack.SS_Get_Max;
- -- Return maximum used space in storage units for the current secondary
- -- stack. For a dynamically allocated secondary stack, the returned
- -- result is always -1. For a statically allocated secondary stack,
- -- the returned value shows the largest amount of space allocated so
- -- far during execution of the program to the current secondary stack,
- -- i.e. the secondary stack for the current task.
end GNAT.Secondary_Stack_Info;