comparison gcc/ada/libgnat/s-parame.adb @ 131:84e7813d76e9

gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children 1830386684a0
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
4 -- -- 4 -- --
5 -- S Y S T E M . P A R A M E T E R S -- 5 -- S Y S T E M . P A R A M E T E R S --
6 -- -- 6 -- --
7 -- B o d y -- 7 -- B o d y --
8 -- -- 8 -- --
9 -- Copyright (C) 1995-2017, Free Software Foundation, Inc. -- 9 -- Copyright (C) 1995-2018, Free Software Foundation, Inc. --
10 -- -- 10 -- --
11 -- GNAT is free software; you can redistribute it and/or modify it under -- 11 -- GNAT is free software; you can redistribute it and/or modify it under --
12 -- terms of the GNU General Public License as published by the Free Soft- -- 12 -- terms of the GNU General Public License as published by the Free Soft- --
13 -- ware Foundation; either version 3, or (at your option) any later ver- -- 13 -- ware Foundation; either version 3, or (at your option) any later ver- --
14 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- 14 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
48 else 48 else
49 return Size; 49 return Size;
50 end if; 50 end if;
51 end Adjust_Storage_Size; 51 end Adjust_Storage_Size;
52 52
53 ----------------------------
54 -- Default_Sec_Stack_Size --
55 ----------------------------
56
57 function Default_Sec_Stack_Size return Size_Type is
58 Default_SS_Size : Integer;
59 pragma Import (C, Default_SS_Size,
60 "__gnat_default_ss_size");
61 begin
62 -- There are two situations where the default secondary stack size is
63 -- set to zero:
64 --
65 -- * The user sets it to zero erroneously thinking it will disable
66 -- the secondary stack.
67 --
68 -- * Or more likely, we are building with an old compiler and
69 -- Default_SS_Size is never set.
70 --
71 -- In both case set the default secondary stack size to the run-time
72 -- default.
73
74 if Default_SS_Size > 0 then
75 return Size_Type (Default_SS_Size);
76 else
77 return Runtime_Default_Sec_Stack_Size;
78 end if;
79 end Default_Sec_Stack_Size;
80
81 ------------------------ 53 ------------------------
82 -- Default_Stack_Size -- 54 -- Default_Stack_Size --
83 ------------------------ 55 ------------------------
84 56
85 function Default_Stack_Size return Size_Type is 57 function Default_Stack_Size return Size_Type is