pike.git/ src/ gc.c

2003-01-14

2003-01-14 19:20:24 by Martin Stjernholm <mast@lysator.liu.se>

• 0d9f933e3468d4860177d5a92e3d7a153ef96e9a (15 lines) (+12/-3) ^{[ Show | Annotate ]}
  Branch: 7.9

Reintroduced last_gc since it's useful to have in _gc_status(). Made it
possible to completely turn off the gc, not just the automatic scheduling.

Rev: src/builtin.cmod:1.107
Rev: src/gc.c:1.197
Rev: src/gc.h:1.96

2:   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: gc.c,v 1.196 2003/01/13 02:07:04 mast Exp $ + || $Id: gc.c,v 1.197 2003/01/14 19:20:24 mast Exp $   */      #include "global.h"
32:      #include "block_alloc.h"    - RCSID("$Id: gc.c,v 1.196 2003/01/13 02:07:04 mast Exp $"); + RCSID("$Id: gc.c,v 1.197 2003/01/14 19:20:24 mast Exp $");      int gc_enabled = 1;   
104:   PMOD_EXPORT int Pike_in_gc = 0;   int gc_generation = 0;   struct pike_queue gc_mark_queue; + time_t last_gc;      struct gc_frame   {
2435:       if(Pike_in_gc) return 0;    -  if (!gc_enabled && !explicit_call) { +  if (gc_enabled <= 0 && (gc_enabled < 0 || !explicit_call)) {    num_allocs = 0;    if (gc_evaluator_callback) {    remove_callback (gc_evaluator_callback);
2479:    Pike_fatal("Panic, less than zero objects!\n");   #endif    +  last_gc=TIME(0);    start_num_objs = num_objects;    start_allocs = num_allocs;    num_allocs = 0;
2944:    *! either "garbage_ratio_low" or "garbage_ratio_high", which    *! corresponds to the gc parameters with the same names in    *! @[Pike.gc_parameters]. +  *! @member int "last_gc" +  *! Time when the garbage-collector last ran.    *! @endmapping    *!    *! @seealso
3002:    }    size++;    +  push_constant_text("last_gc"); +  push_int64(last_gc); +  size++; +     f_aggregate_mapping(size * 2);   }