Commit 5b8ca141 by Tristan Gingold Committed by Arnaud Charlet

Renames Ratio to Percentage, and Sec_Stack_Ratio to Sec_Stack_Percentage

From-SVN: r178315
parent 3597c0e9
...@@ -17,8 +17,8 @@ ...@@ -17,8 +17,8 @@
* s-parame-vms-alpha.ads, s-parame-hpux.ads, s-tassta.adb, * s-parame-vms-alpha.ads, s-parame-hpux.ads, s-tassta.adb,
s-tarest.adb, s-parame-vms-ia64.ads, s-soflin.adb, s-secsta.adb, s-tarest.adb, s-parame-vms-ia64.ads, s-soflin.adb, s-secsta.adb,
s-secsta.ads, s-parame.ads, s-parame-vxworks.ads: Renames Ratio to s-secsta.ads, s-parame.ads, s-parame-vxworks.ads, s-parame-ae653.ads:
Percentage, and Sec_Stack_Ratio to Sec_Stack_Percentage. Renames Ratio to Percentage, and Sec_Stack_Ratio to Sec_Stack_Percentage
2011-08-30 Gary Dismukes <dismukes@adacore.com> 2011-08-30 Gary Dismukes <dismukes@adacore.com>
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 1992-2010, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, Free Software Foundation, Inc. --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -62,7 +62,7 @@ package System.Parameters is ...@@ -62,7 +62,7 @@ package System.Parameters is
Unspecified_Size : constant Size_Type := Size_Type'First; Unspecified_Size : constant Size_Type := Size_Type'First;
-- Value used to indicate that no size type is set -- Value used to indicate that no size type is set
subtype Ratio is Size_Type range -1 .. 100; subtype Percentage is Size_Type range -1 .. 100;
Dynamic : constant Size_Type := -1; Dynamic : constant Size_Type := -1;
-- The secondary stack ratio is a constant between 0 and 100 which -- The secondary stack ratio is a constant between 0 and 100 which
-- determines the percentage of the allocated task stack that is -- determines the percentage of the allocated task stack that is
...@@ -70,10 +70,10 @@ package System.Parameters is ...@@ -70,10 +70,10 @@ package System.Parameters is
-- The special value of minus one indicates that the secondary -- The special value of minus one indicates that the secondary
-- stack is to be allocated from the heap instead. -- stack is to be allocated from the heap instead.
Sec_Stack_Ratio : constant Ratio := 50; Sec_Stack_Percentage : constant Percentage := 50;
-- This constant defines the handling of the secondary stack -- This constant defines the handling of the secondary stack
Sec_Stack_Dynamic : constant Boolean := Sec_Stack_Ratio = Dynamic; Sec_Stack_Dynamic : constant Boolean := Sec_Stack_Percentage = Dynamic;
-- Convenient Boolean for testing for dynamic secondary stack -- Convenient Boolean for testing for dynamic secondary stack
function Default_Stack_Size return Size_Type; function Default_Stack_Size return Size_Type;
......
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