1 ------------------------------------------------------------------------------
3 -- GNAT COMPILER COMPONENTS --
10 -- Copyright (C) 1992-1999 Free Software Foundation, Inc. --
12 -- GNAT is free software; you can redistribute it and/or modify it under --
13 -- terms of the GNU General Public License as published by the Free Soft- --
14 -- ware Foundation; either version 2, or (at your option) any later ver- --
15 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
16 -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
17 -- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
18 -- for more details. You should have received a copy of the GNU General --
19 -- Public License distributed with GNAT; see file COPYING. If not, write --
20 -- to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, --
21 -- MA 02111-1307, USA. --
23 -- As a special exception, if other files instantiate generics from this --
24 -- unit, or you link this unit with other files to produce an executable, --
25 -- this unit does not by itself cause the resulting executable to be --
26 -- covered by the GNU General Public License. This exception does not --
27 -- however invalidate any other reasons why the executable file might be --
28 -- covered by the GNU Public License. --
30 -- GNAT was originally developed by the GNAT team at New York University. --
31 -- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). --
33 ------------------------------------------------------------------------------
35 -- This package contains definitions for initial sizes and growth increments
36 -- for the various dynamic arrays used for principle compiler data strcutures.
37 -- The indicated initial size is allocated for the start of each file, and
38 -- the increment factor is a percentage used to increase the table size when
39 -- it needs expanding (e.g. a value of 100 = 100% increase = double)
41 -- Note: the initial values here are multiplied by Table_Factor, as set
42 -- by the -gnatTnn switch. This variable is defined in Opt, as is the
43 -- default value for the table factor.
47 -- The comment shows the unit in which the table is defined
49 All_Interp_Initial
: constant := 1_000
; -- Sem_Type
50 All_Interp_Increment
: constant := 100;
52 Branches_Initial
: constant := 1_000
; -- Sem_Warn
53 Branches_Increment
: constant := 100;
55 Conditionals_Initial
: constant := 1_000
; -- Sem_Warn
56 Conditionals_Increment
: constant := 100;
58 Conditional_Stack_Initial
: constant := 50; -- Sem_Warn
59 Conditional_Stack_Increment
: constant := 100;
61 Elists_Initial
: constant := 200; -- Elists
62 Elists_Increment
: constant := 100;
64 Elmts_Initial
: constant := 1_200
; -- Elists
65 Elmts_Increment
: constant := 100;
67 Entity_Suppress_Initial
: constant := 100; -- Sem
68 Entity_Suppress_Increment
: constant := 200;
70 Inlined_Bodies_Initial
: constant := 50; -- Inline
71 Inlined_Bodies_Increment
: constant := 200;
73 Inlined_Initial
: constant := 100; -- Inline
74 Inlined_Increment
: constant := 100;
76 Interp_Map_Initial
: constant := 200; -- Sem_Type
77 Interp_Map_Increment
: constant := 100;
79 Lines_Initial
: constant := 500; -- Sinput
80 Lines_Increment
: constant := 150;
82 Linker_Option_Lines_Initial
: constant := 5; -- Lib
83 Linker_Option_Lines_Increment
: constant := 200;
85 Lists_Initial
: constant := 4_000
; -- Nlists
86 Lists_Increment
: constant := 200;
88 Load_Stack_Initial
: constant := 10; -- Lib
89 Load_Stack_Increment
: constant := 100;
91 Name_Chars_Initial
: constant := 50_000
; -- Namet
92 Name_Chars_Increment
: constant := 100;
94 Name_Qualify_Units_Initial
: constant := 200; -- Exp_Dbug
95 Name_Qualify_Units_Increment
: constant := 300;
97 Names_Initial
: constant := 6_000
; -- Namet
98 Names_Increment
: constant := 100;
100 Nodes_Initial
: constant := 50_000
; -- Atree
101 Nodes_Increment
: constant := 100;
103 Orig_Nodes_Initial
: constant := 50_000
; -- Atree
104 Orig_Nodes_Increment
: constant := 100;
106 Pending_Instantiations_Initial
: constant := 10; -- Inline
107 Pending_Instantiations_Increment
: constant := 100;
109 Rep_Table_Initial
: constant := 1000; -- Repinfo
110 Rep_Table_Increment
: constant := 200;
112 Scope_Stack_Initial
: constant := 10; -- Sem
113 Scope_Stack_Increment
: constant := 200;
115 SFN_Table_Initial
: constant := 10; -- Fname
116 SFN_Table_Increment
: constant := 200;
118 Source_File_Initial
: constant := 10; -- Sinput
119 Source_File_Increment
: constant := 200;
121 String_Chars_Initial
: constant := 2_500
; -- Stringt
122 String_Chars_Increment
: constant := 150;
124 Strings_Initial
: constant := 5_00
; -- Stringt
125 Strings_Increment
: constant := 150;
127 Successors_Initial
: constant := 2_00
; -- Inline
128 Successors_Increment
: constant := 100;
130 Udigits_Initial
: constant := 10_000
; -- Uintp
131 Udigits_Increment
: constant := 100;
133 Uints_Initial
: constant := 5_000
; -- Uintp
134 Uints_Increment
: constant := 100;
136 Units_Initial
: constant := 30; -- Lib
137 Units_Increment
: constant := 100;
139 Ureals_Initial
: constant := 200; -- Urealp
140 Ureals_Increment
: constant := 100;
142 Unreferenced_Entities_Initial
: constant := 1_000
; -- Sem_Warn
143 Unreferenced_Entities_Increment
: constant := 100;
145 With_List_Initial
: constant := 10; -- Features
146 With_List_Increment
: constant := 300;
148 Xrefs_Initial
: constant := 5_000
; -- Cross-refs
149 Xrefs_Increment
: constant := 300;