gcc/ggc-common.c

   1 /* Simple garbage collection for the GNU compiler.
   2    Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004
   3    Free Software Foundation, Inc.
   4
   5 This file is part of GCC.
   6
   7 GCC is free software; you can redistribute it and/or modify it under
   8 the terms of the GNU General Public License as published by the Free
   9 Software Foundation; either version 2, or (at your option) any later
  10 version.
  11
  12 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
  13 WARRANTY; without even the implied warranty of MERCHANTABILITY or
  14 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  15 for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with GCC; see the file COPYING.  If not, write to the Free
  19 Software Foundation, 59 Temple Place - Suite 330, Boston, MA
  20 02111-1307, USA.  */
  21
  22 /* Generic garbage collection (GC) functions and data, not specific to
  23    any particular GC implementation.  */
  24
  25 #include "config.h"
  26 #include "system.h"
  27 #include "coretypes.h"
  28 #include "hashtab.h"
  29 #include "ggc.h"
  30 #include "toplev.h"
  31 #include "params.h"
  32 #include "hosthooks.h"
  33 #include "hosthooks-def.h"
  34
  35 #ifdef HAVE_SYS_RESOURCE_H
  36 # include <sys/resource.h>
  37 #endif
  38
  39 #ifdef HAVE_MMAP_FILE
  40 # include <sys/mman.h>
  41 # ifdef HAVE_MINCORE
  42 /* This is on Solaris.  */
  43 #  include <sys/types.h>
  44 # endif
  45 #endif
  46
  47 #ifndef MAP_FAILED
  48 # define MAP_FAILED ((void *)-1)
  49 #endif
  50
  51 #ifdef ENABLE_VALGRIND_CHECKING
  52 # ifdef HAVE_VALGRIND_MEMCHECK_H
  53 #  include <valgrind/memcheck.h>
  54 # elif defined HAVE_MEMCHECK_H
  55 #  include <memcheck.h>
  56 # else
  57 #  include <valgrind.h>
  58 # endif
  59 #else
  60 /* Avoid #ifdef:s when we can help it.  */
  61 #define VALGRIND_DISCARD(x)
  62 #endif
  63
  64 /* Statistics about the allocation.  */
  65 static ggc_statistics *ggc_stats;
  66
  67 struct traversal_state;
  68
  69 static int ggc_htab_delete (void **, void *);
  70 static hashval_t saving_htab_hash (const void *);
  71 static int saving_htab_eq (const void *, const void *);
  72 static int call_count (void **, void *);
  73 static int call_alloc (void **, void *);
  74 static int compare_ptr_data (const void *, const void *);
  75 static void relocate_ptrs (void *, void *);
  76 static void write_pch_globals (const struct ggc_root_tab * const *tab,
  77                                struct traversal_state *state);
  78 static double ggc_rlimit_bound (double);
  79
  80 /* Maintain global roots that are preserved during GC.  */
  81
  82 /* Process a slot of an htab by deleting it if it has not been marked.  */
  83
  84 static int
  85 ggc_htab_delete (void **slot, void *info)
  86 {
  87   const struct ggc_cache_tab *r = (const struct ggc_cache_tab *) info;
  88
  89   if (! (*r->marked_p) (*slot))
  90     htab_clear_slot (*r->base, slot);
  91   else
  92     (*r->cb) (*slot);
  93
  94   return 1;
  95 }
  96
  97 /* Iterate through all registered roots and mark each element.  */
  98
  99 void
 100 ggc_mark_roots (void)
 101 {
 102   const struct ggc_root_tab *const *rt;
 103   const struct ggc_root_tab *rti;
 104   const struct ggc_cache_tab *const *ct;
 105   const struct ggc_cache_tab *cti;
 106   size_t i;
 107
 108   for (rt = gt_ggc_deletable_rtab; *rt; rt++)
 109     for (rti = *rt; rti->base != NULL; rti++)
 110       memset (rti->base, 0, rti->stride);
 111
 112   for (rt = gt_ggc_rtab; *rt; rt++)
 113     for (rti = *rt; rti->base != NULL; rti++)
 114       for (i = 0; i < rti->nelt; i++)
 115         (*rti->cb)(*(void **)((char *)rti->base + rti->stride * i));
 116
 117   ggc_mark_stringpool ();
 118
 119   /* Now scan all hash tables that have objects which are to be deleted if
 120      they are not already marked.  */
 121   for (ct = gt_ggc_cache_rtab; *ct; ct++)
 122     for (cti = *ct; cti->base != NULL; cti++)
 123       if (*cti->base)
 124         {
 125           ggc_set_mark (*cti->base);
 126           htab_traverse_noresize (*cti->base, ggc_htab_delete, (void *) cti);
 127           ggc_set_mark ((*cti->base)->entries);
 128         }
 129 }
 130
 131 /* Allocate a block of memory, then clear it.  */
 132 void *
 133 ggc_alloc_cleared_stat (size_t size MEM_STAT_DECL)
 134 {
 135   void *buf = ggc_alloc_stat (size PASS_MEM_STAT);
 136   memset (buf, 0, size);
 137   return buf;
 138 }
 139
 140 /* Resize a block of memory, possibly re-allocating it.  */
 141 void *
 142 ggc_realloc_stat (void *x, size_t size MEM_STAT_DECL)
 143 {
 144   void *r;
 145   size_t old_size;
 146
 147   if (x == NULL)
 148     return ggc_alloc_stat (size PASS_MEM_STAT);
 149
 150   old_size = ggc_get_size (x);
 151
 152   if (size <= old_size)
 153     {
 154       /* Mark the unwanted memory as unaccessible.  We also need to make
 155          the "new" size accessible, since ggc_get_size returns the size of
 156          the pool, not the size of the individually allocated object, the
 157          size which was previously made accessible.  Unfortunately, we
 158          don't know that previously allocated size.  Without that
 159          knowledge we have to lose some initialization-tracking for the
 160          old parts of the object.  An alternative is to mark the whole
 161          old_size as reachable, but that would lose tracking of writes
 162          after the end of the object (by small offsets).  Discard the
 163          handle to avoid handle leak.  */
 164       VALGRIND_DISCARD (VALGRIND_MAKE_NOACCESS ((char *) x + size,
 165                                                 old_size - size));
 166       VALGRIND_DISCARD (VALGRIND_MAKE_READABLE (x, size));
 167       return x;
 168     }
 169
 170   r = ggc_alloc_stat (size PASS_MEM_STAT);
 171
 172   /* Since ggc_get_size returns the size of the pool, not the size of the
 173      individually allocated object, we'd access parts of the old object
 174      that were marked invalid with the memcpy below.  We lose a bit of the
 175      initialization-tracking since some of it may be uninitialized.  */
 176   VALGRIND_DISCARD (VALGRIND_MAKE_READABLE (x, old_size));
 177
 178   memcpy (r, x, old_size);
 179
 180   /* The old object is not supposed to be used anymore.  */
 181   ggc_free (x);
 182
 183   return r;
 184 }
 185
 186 /* Like ggc_alloc_cleared, but performs a multiplication.  */
 187 void *
 188 ggc_calloc (size_t s1, size_t s2)
 189 {
 190   return ggc_alloc_cleared (s1 * s2);
 191 }
 192
 193 /* These are for splay_tree_new_ggc.  */
 194 void *
 195 ggc_splay_alloc (int sz, void *nl)
 196 {
 197   if (nl != NULL)
 198     abort ();
 199   return ggc_alloc (sz);
 200 }
 201
 202 void
 203 ggc_splay_dont_free (void * x ATTRIBUTE_UNUSED, void *nl)
 204 {
 205   if (nl != NULL)
 206     abort ();
 207 }
 208
 209 /* Print statistics that are independent of the collector in use.  */
 210 #define SCALE(x) ((unsigned long) ((x) < 1024*10 \
 211                   ? (x) \
 212                   : ((x) < 1024*1024*10 \
 213                      ? (x) / 1024 \
 214                      : (x) / (1024*1024))))
 215 #define LABEL(x) ((x) < 1024*10 ? ' ' : ((x) < 1024*1024*10 ? 'k' : 'M'))
 216
 217 void
 218 ggc_print_common_statistics (FILE *stream ATTRIBUTE_UNUSED,
 219                              ggc_statistics *stats)
 220 {
 221   /* Set the pointer so that during collection we will actually gather
 222      the statistics.  */
 223   ggc_stats = stats;
 224
 225   /* Then do one collection to fill in the statistics.  */
 226   ggc_collect ();
 227
 228   /* At present, we don't really gather any interesting statistics.  */
 229
 230   /* Don't gather statistics any more.  */
 231   ggc_stats = NULL;
 232 }
 233 \f
 234 /* Functions for saving and restoring GCable memory to disk.  */
 235
 236 static htab_t saving_htab;
 237
 238 struct ptr_data
 239 {
 240   void *obj;
 241   void *note_ptr_cookie;
 242   gt_note_pointers note_ptr_fn;
 243   gt_handle_reorder reorder_fn;
 244   size_t size;
 245   void *new_addr;
 246 };
 247
 248 #define POINTER_HASH(x) (hashval_t)((long)x >> 3)
 249
 250 /* Register an object in the hash table.  */
 251
 252 int
 253 gt_pch_note_object (void *obj, void *note_ptr_cookie,
 254                     gt_note_pointers note_ptr_fn)
 255 {
 256   struct ptr_data **slot;
 257
 258   if (obj == NULL || obj == (void *) 1)
 259     return 0;
 260
 261   slot = (struct ptr_data **)
 262     htab_find_slot_with_hash (saving_htab, obj, POINTER_HASH (obj),
 263                               INSERT);
 264   if (*slot != NULL)
 265     {
 266       if ((*slot)->note_ptr_fn != note_ptr_fn
 267           || (*slot)->note_ptr_cookie != note_ptr_cookie)
 268         abort ();
 269       return 0;
 270     }
 271
 272   *slot = xcalloc (sizeof (struct ptr_data), 1);
 273   (*slot)->obj = obj;
 274   (*slot)->note_ptr_fn = note_ptr_fn;
 275   (*slot)->note_ptr_cookie = note_ptr_cookie;
 276   if (note_ptr_fn == gt_pch_p_S)
 277     (*slot)->size = strlen (obj) + 1;
 278   else
 279     (*slot)->size = ggc_get_size (obj);
 280   return 1;
 281 }
 282
 283 /* Register an object in the hash table.  */
 284
 285 void
 286 gt_pch_note_reorder (void *obj, void *note_ptr_cookie,
 287                      gt_handle_reorder reorder_fn)
 288 {
 289   struct ptr_data *data;
 290
 291   if (obj == NULL || obj == (void *) 1)
 292     return;
 293
 294   data = htab_find_with_hash (saving_htab, obj, POINTER_HASH (obj));
 295   if (data == NULL
 296       || data->note_ptr_cookie != note_ptr_cookie)
 297     abort ();
 298
 299   data->reorder_fn = reorder_fn;
 300 }
 301
 302 /* Hash and equality functions for saving_htab, callbacks for htab_create.  */
 303
 304 static hashval_t
 305 saving_htab_hash (const void *p)
 306 {
 307   return POINTER_HASH (((struct ptr_data *)p)->obj);
 308 }
 309
 310 static int
 311 saving_htab_eq (const void *p1, const void *p2)
 312 {
 313   return ((struct ptr_data *)p1)->obj == p2;
 314 }
 315
 316 /* Handy state for the traversal functions.  */
 317
 318 struct traversal_state
 319 {
 320   FILE *f;
 321   struct ggc_pch_data *d;
 322   size_t count;
 323   struct ptr_data **ptrs;
 324   size_t ptrs_i;
 325 };
 326
 327 /* Callbacks for htab_traverse.  */
 328
 329 static int
 330 call_count (void **slot, void *state_p)
 331 {
 332   struct ptr_data *d = (struct ptr_data *)*slot;
 333   struct traversal_state *state = (struct traversal_state *)state_p;
 334
 335   ggc_pch_count_object (state->d, d->obj, d->size, d->note_ptr_fn == gt_pch_p_S);
 336   state->count++;
 337   return 1;
 338 }
 339
 340 static int
 341 call_alloc (void **slot, void *state_p)
 342 {
 343   struct ptr_data *d = (struct ptr_data *)*slot;
 344   struct traversal_state *state = (struct traversal_state *)state_p;
 345
 346   d->new_addr = ggc_pch_alloc_object (state->d, d->obj, d->size, d->note_ptr_fn == gt_pch_p_S);
 347   state->ptrs[state->ptrs_i++] = d;
 348   return 1;
 349 }
 350
 351 /* Callback for qsort.  */
 352
 353 static int
 354 compare_ptr_data (const void *p1_p, const void *p2_p)
 355 {
 356   struct ptr_data *p1 = *(struct ptr_data *const *)p1_p;
 357   struct ptr_data *p2 = *(struct ptr_data *const *)p2_p;
 358   return (((size_t)p1->new_addr > (size_t)p2->new_addr)
 359           - ((size_t)p1->new_addr < (size_t)p2->new_addr));
 360 }
 361
 362 /* Callbacks for note_ptr_fn.  */
 363
 364 static void
 365 relocate_ptrs (void *ptr_p, void *state_p)
 366 {
 367   void **ptr = (void **)ptr_p;
 368   struct traversal_state *state ATTRIBUTE_UNUSED
 369     = (struct traversal_state *)state_p;
 370   struct ptr_data *result;
 371
 372   if (*ptr == NULL || *ptr == (void *)1)
 373     return;
 374
 375   result = htab_find_with_hash (saving_htab, *ptr, POINTER_HASH (*ptr));
 376   if (result == NULL)
 377     abort ();
 378   *ptr = result->new_addr;
 379 }
 380
 381 /* Write out, after relocation, the pointers in TAB.  */
 382 static void
 383 write_pch_globals (const struct ggc_root_tab * const *tab,
 384                    struct traversal_state *state)
 385 {
 386   const struct ggc_root_tab *const *rt;
 387   const struct ggc_root_tab *rti;
 388   size_t i;
 389
 390   for (rt = tab; *rt; rt++)
 391     for (rti = *rt; rti->base != NULL; rti++)
 392       for (i = 0; i < rti->nelt; i++)
 393         {
 394           void *ptr = *(void **)((char *)rti->base + rti->stride * i);
 395           struct ptr_data *new_ptr;
 396           if (ptr == NULL || ptr == (void *)1)
 397             {
 398               if (fwrite (&ptr, sizeof (void *), 1, state->f)
 399                   != 1)
 400                 fatal_error ("can't write PCH file: %m");
 401             }
 402           else
 403             {
 404               new_ptr = htab_find_with_hash (saving_htab, ptr,
 405                                              POINTER_HASH (ptr));
 406               if (fwrite (&new_ptr->new_addr, sizeof (void *), 1, state->f)
 407                   != 1)
 408                 fatal_error ("can't write PCH file: %m");
 409             }
 410         }
 411 }
 412
 413 /* Hold the information we need to mmap the file back in.  */
 414
 415 struct mmap_info
 416 {
 417   size_t offset;
 418   size_t size;
 419   void *preferred_base;
 420 };
 421
 422 /* Write out the state of the compiler to F.  */
 423
 424 void
 425 gt_pch_save (FILE *f)
 426 {
 427   const struct ggc_root_tab *const *rt;
 428   const struct ggc_root_tab *rti;
 429   size_t i;
 430   struct traversal_state state;
 431   char *this_object = NULL;
 432   size_t this_object_size = 0;
 433   struct mmap_info mmi;
 434   const size_t mmap_offset_alignment = host_hooks.gt_pch_alloc_granularity();
 435
 436   gt_pch_save_stringpool ();
 437
 438   saving_htab = htab_create (50000, saving_htab_hash, saving_htab_eq, free);
 439
 440   for (rt = gt_ggc_rtab; *rt; rt++)
 441     for (rti = *rt; rti->base != NULL; rti++)
 442       for (i = 0; i < rti->nelt; i++)
 443         (*rti->pchw)(*(void **)((char *)rti->base + rti->stride * i));
 444
 445   for (rt = gt_pch_cache_rtab; *rt; rt++)
 446     for (rti = *rt; rti->base != NULL; rti++)
 447       for (i = 0; i < rti->nelt; i++)
 448         (*rti->pchw)(*(void **)((char *)rti->base + rti->stride * i));
 449
 450   /* Prepare the objects for writing, determine addresses and such.  */
 451   state.f = f;
 452   state.d = init_ggc_pch();
 453   state.count = 0;
 454   htab_traverse (saving_htab, call_count, &state);
 455
 456   mmi.size = ggc_pch_total_size (state.d);
 457
 458   /* Try to arrange things so that no relocation is necessary, but
 459      don't try very hard.  On most platforms, this will always work,
 460      and on the rest it's a lot of work to do better.
 461      (The extra work goes in HOST_HOOKS_GT_PCH_GET_ADDRESS and
 462      HOST_HOOKS_GT_PCH_USE_ADDRESS.)  */
 463   mmi.preferred_base = host_hooks.gt_pch_get_address (mmi.size, fileno (f));
 464
 465   ggc_pch_this_base (state.d, mmi.preferred_base);
 466
 467   state.ptrs = xmalloc (state.count * sizeof (*state.ptrs));
 468   state.ptrs_i = 0;
 469   htab_traverse (saving_htab, call_alloc, &state);
 470   qsort (state.ptrs, state.count, sizeof (*state.ptrs), compare_ptr_data);
 471
 472   /* Write out all the scalar variables.  */
 473   for (rt = gt_pch_scalar_rtab; *rt; rt++)
 474     for (rti = *rt; rti->base != NULL; rti++)
 475       if (fwrite (rti->base, rti->stride, 1, f) != 1)
 476         fatal_error ("can't write PCH file: %m");
 477
 478   /* Write out all the global pointers, after translation.  */
 479   write_pch_globals (gt_ggc_rtab, &state);
 480   write_pch_globals (gt_pch_cache_rtab, &state);
 481
 482   ggc_pch_prepare_write (state.d, state.f);
 483
 484   /* Pad the PCH file so that the mmapped area starts on an allocation
 485      granularity (usually page) boundary.  */
 486   {
 487     long o;
 488     o = ftell (state.f) + sizeof (mmi);
 489     if (o == -1)
 490       fatal_error ("can't get position in PCH file: %m");
 491     mmi.offset = mmap_offset_alignment - o % mmap_offset_alignment;
 492     if (mmi.offset == mmap_offset_alignment)
 493       mmi.offset = 0;
 494     mmi.offset += o;
 495   }
 496   if (fwrite (&mmi, sizeof (mmi), 1, state.f) != 1)
 497     fatal_error ("can't write PCH file: %m");
 498   if (mmi.offset != 0
 499       && fseek (state.f, mmi.offset, SEEK_SET) != 0)
 500     fatal_error ("can't write padding to PCH file: %m");
 501
 502   /* Actually write out the objects.  */
 503   for (i = 0; i < state.count; i++)
 504     {
 505       if (this_object_size < state.ptrs[i]->size)
 506         {
 507           this_object_size = state.ptrs[i]->size;
 508           this_object = xrealloc (this_object, this_object_size);
 509         }
 510       memcpy (this_object, state.ptrs[i]->obj, state.ptrs[i]->size);
 511       if (state.ptrs[i]->reorder_fn != NULL)
 512         state.ptrs[i]->reorder_fn (state.ptrs[i]->obj,
 513                                    state.ptrs[i]->note_ptr_cookie,
 514                                    relocate_ptrs, &state);
 515       state.ptrs[i]->note_ptr_fn (state.ptrs[i]->obj,
 516                                   state.ptrs[i]->note_ptr_cookie,
 517                                   relocate_ptrs, &state);
 518       ggc_pch_write_object (state.d, state.f, state.ptrs[i]->obj,
 519                             state.ptrs[i]->new_addr, state.ptrs[i]->size,
 520                             state.ptrs[i]->note_ptr_fn == gt_pch_p_S);
 521       if (state.ptrs[i]->note_ptr_fn != gt_pch_p_S)
 522         memcpy (state.ptrs[i]->obj, this_object, state.ptrs[i]->size);
 523     }
 524   ggc_pch_finish (state.d, state.f);
 525   gt_pch_fixup_stringpool ();
 526
 527   free (state.ptrs);
 528   htab_delete (saving_htab);
 529 }
 530
 531 /* Read the state of the compiler back in from F.  */
 532
 533 void
 534 gt_pch_restore (FILE *f)
 535 {
 536   const struct ggc_root_tab *const *rt;
 537   const struct ggc_root_tab *rti;
 538   size_t i;
 539   struct mmap_info mmi;
 540   int result;
 541
 542   /* Delete any deletable objects.  This makes ggc_pch_read much
 543      faster, as it can be sure that no GCable objects remain other
 544      than the ones just read in.  */
 545   for (rt = gt_ggc_deletable_rtab; *rt; rt++)
 546     for (rti = *rt; rti->base != NULL; rti++)
 547       memset (rti->base, 0, rti->stride);
 548
 549   /* Read in all the scalar variables.  */
 550   for (rt = gt_pch_scalar_rtab; *rt; rt++)
 551     for (rti = *rt; rti->base != NULL; rti++)
 552       if (fread (rti->base, rti->stride, 1, f) != 1)
 553         fatal_error ("can't read PCH file: %m");
 554
 555   /* Read in all the global pointers, in 6 easy loops.  */
 556   for (rt = gt_ggc_rtab; *rt; rt++)
 557     for (rti = *rt; rti->base != NULL; rti++)
 558       for (i = 0; i < rti->nelt; i++)
 559         if (fread ((char *)rti->base + rti->stride * i,
 560                    sizeof (void *), 1, f) != 1)
 561           fatal_error ("can't read PCH file: %m");
 562
 563   for (rt = gt_pch_cache_rtab; *rt; rt++)
 564     for (rti = *rt; rti->base != NULL; rti++)
 565       for (i = 0; i < rti->nelt; i++)
 566         if (fread ((char *)rti->base + rti->stride * i,
 567                    sizeof (void *), 1, f) != 1)
 568           fatal_error ("can't read PCH file: %m");
 569
 570   if (fread (&mmi, sizeof (mmi), 1, f) != 1)
 571     fatal_error ("can't read PCH file: %m");
 572
 573   result = host_hooks.gt_pch_use_address (mmi.preferred_base, mmi.size,
 574                                           fileno (f), mmi.offset);
 575   if (result < 0)
 576     fatal_error ("had to relocate PCH");
 577   if (result == 0)
 578     {
 579       if (fseek (f, mmi.offset, SEEK_SET) != 0
 580           || fread (mmi.preferred_base, mmi.size, 1, f) != 1)
 581         fatal_error ("can't read PCH file: %m");
 582     }
 583   else if (fseek (f, mmi.offset + mmi.size, SEEK_SET) != 0)
 584     fatal_error ("can't read PCH file: %m");
 585
 586   ggc_pch_read (f, mmi.preferred_base);
 587
 588   gt_pch_restore_stringpool ();
 589 }
 590
 591 /* Default version of HOST_HOOKS_GT_PCH_GET_ADDRESS when mmap is not present.
 592    Select no address whatsoever, and let gt_pch_save choose what it will with
 593    malloc, presumably.  */
 594
 595 void *
 596 default_gt_pch_get_address (size_t size ATTRIBUTE_UNUSED,
 597                             int fd ATTRIBUTE_UNUSED)
 598 {
 599   return NULL;
 600 }
 601
 602 /* Default version of HOST_HOOKS_GT_PCH_USE_ADDRESS when mmap is not present.
 603    Allocate SIZE bytes with malloc.  Return 0 if the address we got is the
 604    same as base, indicating that the memory has been allocated but needs to
 605    be read in from the file.  Return -1 if the address differs, to relocation
 606    of the PCH file would be required.  */
 607
 608 int
 609 default_gt_pch_use_address (void *base, size_t size, int fd ATTRIBUTE_UNUSED,
 610                             size_t offset ATTRIBUTE_UNUSED)
 611 {
 612   void *addr = xmalloc (size);
 613   return (addr == base) - 1;
 614 }
 615
 616 /* Default version of HOST_HOOKS_GT_PCH_GET_ADDRESS.   Return the
 617    alignment required for allocating virtual memory. Usually this is the
 618    same as pagesize.  */
 619
 620 size_t
 621 default_gt_pch_alloc_granularity (void)
 622 {
 623   return getpagesize();
 624 }
 625
 626 #if HAVE_MMAP_FILE
 627 /* Default version of HOST_HOOKS_GT_PCH_GET_ADDRESS when mmap is present.
 628    We temporarily allocate SIZE bytes, and let the kernel place the data
 629    wherever it will.  If it worked, that's our spot, if not we're likely
 630    to be in trouble.  */
 631
 632 void *
 633 mmap_gt_pch_get_address (size_t size, int fd)
 634 {
 635   void *ret;
 636
 637   ret = mmap (NULL, size, PROT_READ | PROT_WRITE, MAP_PRIVATE, fd, 0);
 638   if (ret == (void *) MAP_FAILED)
 639     ret = NULL;
 640   else
 641     munmap (ret, size);
 642
 643   return ret;
 644 }
 645
 646 /* Default version of HOST_HOOKS_GT_PCH_USE_ADDRESS when mmap is present.
 647    Map SIZE bytes of FD+OFFSET at BASE.  Return 1 if we succeeded at
 648    mapping the data at BASE, -1 if we couldn't.
 649
 650    This version assumes that the kernel honors the START operand of mmap
 651    even without MAP_FIXED if START through START+SIZE are not currently
 652    mapped with something.  */
 653
 654 int
 655 mmap_gt_pch_use_address (void *base, size_t size, int fd, size_t offset)
 656 {
 657   void *addr;
 658
 659   /* We're called with size == 0 if we're not planning to load a PCH
 660      file at all.  This allows the hook to free any static space that
 661      we might have allocated at link time.  */
 662   if (size == 0)
 663     return -1;
 664
 665   addr = mmap (base, size, PROT_READ | PROT_WRITE, MAP_PRIVATE,
 666                fd, offset);
 667
 668   return addr == base ? 1 : -1;
 669 }
 670 #endif /* HAVE_MMAP_FILE */
 671
 672 /* Modify the bound based on rlimits.  */
 673 static double
 674 ggc_rlimit_bound (double limit)
 675 {
 676 #if defined(HAVE_GETRLIMIT)
 677   struct rlimit rlim;
 678 # if defined (RLIMIT_AS)
 679   /* RLIMIT_AS is what POSIX says is the limit on mmap.  Presumably
 680      any OS which has RLIMIT_AS also has a working mmap that GCC will use.  */
 681   if (getrlimit (RLIMIT_AS, &rlim) == 0
 682       && rlim.rlim_cur != (rlim_t) RLIM_INFINITY
 683       && rlim.rlim_cur < limit)
 684     limit = rlim.rlim_cur;
 685 # elif defined (RLIMIT_DATA)
 686   /* ... but some older OSs bound mmap based on RLIMIT_DATA, or we
 687      might be on an OS that has a broken mmap.  (Others don't bound
 688      mmap at all, apparently.)  */
 689   if (getrlimit (RLIMIT_DATA, &rlim) == 0
 690       && rlim.rlim_cur != (rlim_t) RLIM_INFINITY
 691       && rlim.rlim_cur < limit
 692       /* Darwin has this horribly bogus default setting of
 693          RLIMIT_DATA, to 6144Kb.  No-one notices because RLIMIT_DATA
 694          appears to be ignored.  Ignore such silliness.  If a limit
 695          this small was actually effective for mmap, GCC wouldn't even
 696          start up.  */
 697       && rlim.rlim_cur >= 8 * 1024 * 1024)
 698     limit = rlim.rlim_cur;
 699 # endif /* RLIMIT_AS or RLIMIT_DATA */
 700 #endif /* HAVE_GETRLIMIT */
 701
 702   return limit;
 703 }
 704
 705 /* Heuristic to set a default for GGC_MIN_EXPAND.  */
 706 int
 707 ggc_min_expand_heuristic (void)
 708 {
 709   double min_expand = physmem_total();
 710
 711   /* Adjust for rlimits.  */
 712   min_expand = ggc_rlimit_bound (min_expand);
 713
 714   /* The heuristic is a percentage equal to 30% + 70%*(RAM/1GB), yielding
 715      a lower bound of 30% and an upper bound of 100% (when RAM >= 1GB).  */
 716   min_expand /= 1024*1024*1024;
 717   min_expand *= 70;
 718   min_expand = MIN (min_expand, 70);
 719   min_expand += 30;
 720
 721   return min_expand;
 722 }
 723
 724 /* Heuristic to set a default for GGC_MIN_HEAPSIZE.  */
 725 int
 726 ggc_min_heapsize_heuristic (void)
 727 {
 728   double phys_kbytes = physmem_total();
 729   double limit_kbytes = ggc_rlimit_bound (phys_kbytes * 2);
 730
 731   phys_kbytes /= 1024; /* Convert to Kbytes.  */
 732   limit_kbytes /= 1024;
 733
 734   /* The heuristic is RAM/8, with a lower bound of 4M and an upper
 735      bound of 128M (when RAM >= 1GB).  */
 736   phys_kbytes /= 8;
 737
 738 #if defined(HAVE_GETRLIMIT) && defined (RLIMIT_RSS)
 739   /* Try not to overrun the RSS limit while doing garbage collection.
 740      The RSS limit is only advisory, so no margin is subtracted.  */
 741  {
 742    struct rlimit rlim;
 743    if (getrlimit (RLIMIT_RSS, &rlim) == 0
 744        && rlim.rlim_cur != (rlim_t) RLIM_INFINITY)
 745      phys_kbytes = MIN (phys_kbytes, rlim.rlim_cur / 1024);
 746  }
 747 # endif
 748
 749   /* Don't blindly run over our data limit; do GC at least when the
 750      *next* GC would be within 16Mb of the limit.  If GCC does hit the
 751      data limit, compilation will fail, so this tries to be
 752      conservative.  */
 753   limit_kbytes = MAX (0, limit_kbytes - 16 * 1024);
 754   limit_kbytes = (limit_kbytes * 100) / (110 + ggc_min_expand_heuristic());
 755   phys_kbytes = MIN (phys_kbytes, limit_kbytes);
 756
 757   phys_kbytes = MAX (phys_kbytes, 4 * 1024);
 758   phys_kbytes = MIN (phys_kbytes, 128 * 1024);
 759
 760   return phys_kbytes;
 761 }
 762
 763 void
 764 init_ggc_heuristics (void)
 765 {
 766 #if !defined ENABLE_GC_CHECKING && !defined ENABLE_GC_ALWAYS_COLLECT
 767   set_param_value ("ggc-min-expand", ggc_min_expand_heuristic());
 768   set_param_value ("ggc-min-heapsize", ggc_min_heapsize_heuristic());
 769 #endif
 770 }
 771
 772 #ifdef GATHER_STATISTICS
 773
 774 /* Datastructure used to store per-call-site statistics.  */
 775 struct loc_descriptor
 776 {
 777   const char *file;
 778   int line;
 779   const char *function;
 780   int times;
 781   size_t allocated;
 782   size_t overhead;
 783 };
 784
 785 /* Hashtable used for statistics.  */
 786 static htab_t loc_hash;
 787
 788 /* Hash table helpers functions.  */
 789 static hashval_t
 790 hash_descriptor (const void *p)
 791 {
 792   const struct loc_descriptor *d = p;
 793
 794   return htab_hash_pointer (d->function) | d->line;
 795 }
 796
 797 static int
 798 eq_descriptor (const void *p1, const void *p2)
 799 {
 800   const struct loc_descriptor *d = p1;
 801   const struct loc_descriptor *d2 = p2;
 802
 803   return (d->file == d2->file && d->line == d2->line
 804           && d->function == d2->function);
 805 }
 806
 807 /* Return descriptor for given call site, create new one if needed.  */
 808 static struct loc_descriptor *
 809 loc_descriptor (const char *name, int line, const char *function)
 810 {
 811   struct loc_descriptor loc;
 812   struct loc_descriptor **slot;
 813
 814   loc.file = name;
 815   loc.line = line;
 816   loc.function = function;
 817   if (!loc_hash)
 818     loc_hash = htab_create (10, hash_descriptor, eq_descriptor, NULL);
 819
 820   slot = (struct loc_descriptor **) htab_find_slot (loc_hash, &loc, 1);
 821   if (*slot)
 822     return *slot;
 823   *slot = xcalloc (sizeof (**slot), 1);
 824   (*slot)->file = name;
 825   (*slot)->line = line;
 826   (*slot)->function = function;
 827   return *slot;
 828 }
 829
 830 /* Record ALLOCATED and OVERHEAD bytes to descriptor NAME:LINE (FUNCTION).  */
 831 void
 832 ggc_record_overhead (size_t allocated, size_t overhead,
 833                      const char *name, int line, const char *function)
 834 {
 835   struct loc_descriptor *loc = loc_descriptor (name, line, function);
 836
 837   loc->times++;
 838   loc->allocated+=allocated;
 839   loc->overhead+=overhead;
 840 }
 841
 842 /* Helper for qsort; sort descriptors by amount of memory consumed.  */
 843 static int
 844 cmp_statistic (const void *loc1, const void *loc2)
 845 {
 846   struct loc_descriptor *l1 = *(struct loc_descriptor **) loc1;
 847   struct loc_descriptor *l2 = *(struct loc_descriptor **) loc2;
 848   return (l1->allocated + l1->overhead) - (l2->allocated + l2->overhead);
 849 }
 850
 851 /* Collect array of the descriptors from hashtable.  */
 852 struct loc_descriptor **loc_array;
 853 static int
 854 add_statistics (void **slot, void *b)
 855 {
 856   int *n = (int *)b;
 857   loc_array[*n] = (struct loc_descriptor *) *slot;
 858   (*n)++;
 859   return 1;
 860 }
 861
 862 /* Dump per-site memory statistics.  */
 863 #endif
 864 void dump_ggc_loc_statistics (void)
 865 {
 866 #ifdef GATHER_STATISTICS
 867   int nentries = 0;
 868   char s[4096];
 869   size_t count, size, overhead;
 870   int i;
 871
 872   loc_array = xcalloc (sizeof (*loc_array), loc_hash->n_elements);
 873   fprintf (stderr, "-------------------------------------------------------\n");
 874   fprintf (stderr, "\n%-60s %10s %10s %10s\n",
 875            "source location", "Times", "Allocated", "Overhead");
 876   fprintf (stderr, "-------------------------------------------------------\n");
 877   count = 0;
 878   size = 0;
 879   overhead = 0;
 880   htab_traverse (loc_hash, add_statistics, &nentries);
 881   qsort (loc_array, nentries, sizeof (*loc_array), cmp_statistic);
 882   for (i = 0; i < nentries; i++)
 883     {
 884       struct loc_descriptor *d = loc_array[i];
 885       size += d->allocated;
 886       count += d->times;
 887       overhead += d->overhead;
 888     }
 889   for (i = 0; i < nentries; i++)
 890     {
 891       struct loc_descriptor *d = loc_array[i];
 892       if (d->allocated)
 893         {
 894           const char *s1 = d->file;
 895           const char *s2;
 896           while ((s2 = strstr (s1, "gcc/")))
 897             s1 = s2 + 4;
 898           sprintf (s, "%s:%i (%s)", s1, d->line, d->function);
 899           fprintf (stderr, "%-60s %10i %10li %10li:%.3f%%\n", s,
 900                    d->times, (long)d->allocated, (long)d->overhead,
 901                    (d->allocated + d->overhead) *100.0 / (size + overhead));
 902         }
 903     }
 904   fprintf (stderr, "%-60s %10ld %10ld %10ld\n",
 905            "Total", (long)count, (long)size, (long)overhead);
 906   fprintf (stderr, "-------------------------------------------------------\n");
 907 #endif
 908 }