home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / gnat-2.06-src.tgz / tar.out / fsf / gnat / ada / alloc.ads < prev    next >
Text File  |  1996-09-28  |  6KB  |  125 lines
  1. ------------------------------------------------------------------------------
  2. --                                                                          --
  3. --                         GNAT COMPILER COMPONENTS                         --
  4. --                                                                          --
  5. --                                A L L O C                                 --
  6. --                                                                          --
  7. --                                 S p e c                                  --
  8. --                                                                          --
  9. --                            $Revision: 1.14 $                             --
  10. --                                                                          --
  11. --        Copyright (c) 1992,1993,1994,1995 NYU, All Rights Reserved        --
  12. --                                                                          --
  13. -- The GNAT library is free software; you can redistribute it and/or modify --
  14. -- it under terms of the GNU Library General Public License as published by --
  15. -- the Free Software  Foundation; either version 2, or (at your option) any --
  16. -- later version.  The GNAT library is distributed in the hope that it will --
  17. -- be useful, but WITHOUT ANY WARRANTY;  without even  the implied warranty --
  18. -- of MERCHANTABILITY  or  FITNESS FOR  A PARTICULAR PURPOSE.  See the  GNU --
  19. -- Library  General  Public  License for  more  details.  You  should  have --
  20. -- received  a copy of the GNU  Library  General Public License  along with --
  21. -- the GNAT library;  see the file  COPYING.LIB.  If not, write to the Free --
  22. -- Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.        --
  23. --                                                                          --
  24. ------------------------------------------------------------------------------
  25.  
  26. package Alloc is
  27.  
  28. --  This package contains definitions for initial sizes and growth increments
  29. --  for the various dynamic arrays used for principle compiler data strcutures.
  30. --  The indicated initial size is allocated for the start of each file, and
  31. --  the increment factor is a percentage used to increase the table size when
  32. --  it needs expanding (e.g. a value of 100 = 100% increase = double)
  33.  
  34.    Alloc_Elists_Initial : constant := 1_000;
  35.    --  Initial allocation in Elist headers for tree (Elists)
  36.  
  37.    Alloc_Elists_Increment : constant := 150;
  38.    --  Incremental allocation factor for Elist headers table (Elists)
  39.  
  40.    Alloc_Elmts_Initial : constant := 4_000;
  41.    --  Initial allocation in Elmts table (Elists)
  42.  
  43.    Alloc_Elmts_Increment : constant := 150;
  44.    --  Incremental allocation factor for Elmts table (Elists)
  45.  
  46.    Alloc_Feature_List_Initial : constant := 100;
  47.    --  Initial allocation for Feature_List table (Features)
  48.  
  49.    Alloc_Feature_List_Increment : constant := 300;
  50.    --  Incremental allocation factor for Feature_List table (Features)
  51.  
  52.    Alloc_Hash_Sub_Initial : constant := 2048;
  53.    --  Initial allocation in tree substitution hash table (Atree)
  54.  
  55.    Alloc_Hash_Sub_Increment : constant := 300;
  56.    --  Incremental allocation factor in tree substitution hash table (Atree)
  57.  
  58.    Alloc_Lines_Initial : constant := 4_000;
  59.    --  Initial allocation for lines table (Lib, Lib.Load)
  60.  
  61.    Alloc_Lines_Increment : constant := 150;
  62.    --  Incremental allocation factor for lines table (Sinput)
  63.  
  64.    Alloc_Lists_Initial : constant := 4_000;
  65.    --  Initial allocation in list headers for tree (Nlists)
  66.  
  67.    Alloc_Lists_Increment : constant := 200;
  68.    --  Incremental allocation factor for list table (Nlists)
  69.  
  70.    Alloc_Name_Chars_Initial : constant := 64_000;
  71.    --  Initial allocation for name characters table (Namet)
  72.  
  73.    Alloc_Name_Chars_Increment : constant := 100;
  74.    --  Incremental allocation factor for name characters table (Namet)
  75.  
  76.    Alloc_Names_Initial : constant := 4_000;
  77.    --  Initial allocation of entries in names table (Namet)
  78.  
  79.    Alloc_Names_Increment : constant := 100;
  80.    --  Incremental allocation factor of entries in names table (Namet)
  81.  
  82.    Alloc_Nodes_Initial : constant := 8_000;
  83.    --  Initial allocation in nodes for tree (Atree)
  84.  
  85.    Alloc_Nodes_Increment : constant := 200;
  86.    --  Incremental allocation factor for nodes table (Atree)
  87.  
  88.    Alloc_String_Chars_Initial : constant := 64_000;
  89.    --  Initial allocation for name characters table (Stringt)
  90.  
  91.    Alloc_String_Chars_Increment : constant := 150;
  92.    --  Incremental allocation factor for name characters table (Stringt)
  93.  
  94.    Alloc_Strings_Initial : constant := 500;
  95.    --  Initial allocation of entries in names table (Stringt)
  96.  
  97.    Alloc_Strings_Increment : constant := 150;
  98.    --  Incremental allocation factor of entries in names table (Stringt)
  99.  
  100.    Alloc_Udigits_Initial : constant := 50_000;
  101.    --  Initial allocation for Uint digits table (Uintp)
  102.  
  103.    Alloc_Udigits_Increment : constant := 100;
  104.    --  Incremental allocation factor Uint digits table (Uintp)
  105.  
  106.    Alloc_Uints_Initial : constant := 20_000;
  107.    --  Initial allocation for uint table in digits (Uintp)
  108.  
  109.    Alloc_Uints_Increment : constant := 100;
  110.    --  Incremental allocation factor for Uint table in digits (Uintp)
  111.  
  112.    Alloc_Ureals_Initial : constant := 2000;
  113.    --  Initial allocation for universal real table in entries (Urealp)
  114.  
  115.    Alloc_Ureals_Increment : constant := 100;
  116.    --  Incremental allocation factor for universal real table (Urealp)
  117.  
  118.    Alloc_With_List_Initial : constant := 100;
  119.    --  Initial allocation for With_List table (Features)
  120.  
  121.    Alloc_With_List_Increment : constant := 300;
  122.    --  Incremental allocation factor for With_List table (Features)
  123.  
  124. end Alloc;
  125.