pike.git/ src/ gc.c

2001-09-24

2001-09-24 15:02:13 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• a5cd6a8594e1743bf006186e934f9fa6f50edd66 (16 lines) (+6/-10) ^{[ Show | Annotate ]}
  Branch: 7.9

Fixed a few warnings.

Rev: src/array.c:1.118
Rev: src/backend.cmod:1.20
Rev: src/docode.c:1.132
Rev: src/encode.c:1.129
Rev: src/error.c:1.76
Rev: src/fd_control.c:1.37
Rev: src/fdlib.c:1.50
Rev: src/fsort_template.h:1.9
Rev: src/gc.c:1.177
Rev: src/interpret.c:1.249
Rev: src/interpret_functions.h:1.93
Rev: src/lexer.h:1.34
Rev: src/main.c:1.137
Rev: src/mapping.c:1.137
Rev: src/module_support.c:1.41
Rev: src/modules/system/nt.c:1.45
Rev: src/multiset.c:1.38
Rev: src/object.c:1.185
Rev: src/opcodes.c:1.116
Rev: src/operators.c:1.140
Rev: src/pike_search_engine.c:1.7
Rev: src/preprocessor.h:1.46
Rev: src/signal_handler.c:1.202

30:      #include "block_alloc.h"    - RCSID("$Id: gc.c,v 1.176 2001/09/11 05:42:59 hubbe Exp $"); + RCSID("$Id: gc.c,v 1.177 2001/09/24 14:36:51 grubba Exp $");      /* Run garbage collect approximately every time    * 20 percent of all arrays, objects and programs is
1920:    else {    /* We'll get here eventually in the normal recursion. Pop off    * the remaining live recurse frames for the last thing. */ -  int flags; +     CYCLE_DEBUG_MSG(m, "gc_cycle_push, no live recurse");    last->flags &= ~GC_LIVE_RECURSE;    while (1) {
2339:    double tmp;    ptrdiff_t objs, pre_kill_objs;    double multiplier; -  struct array *a; -  struct multiset *l; -  struct mapping *m; -  struct program *p; -  struct object *o; +    #ifdef PIKE_DEBUG   #ifdef HAVE_GETHRTIME    hrtime_t gcstarttime = 0;
2823:    size++;       push_constant_text("objects_alloced"); -  push_int64(objects_alloced); +  push_int64(DO_NOT_WARN((INT64)objects_alloced));    size++;       push_constant_text("objects_freed"); -  push_int64(objects_freed); +  push_int64(DO_NOT_WARN((INT64)objects_freed));    size++;       push_constant_text("last_gc");
2835:    size++;       push_constant_text("projected_garbage"); -  push_float(objects_freed * (double) num_allocs / (double) alloc_threshold); +  push_float(DO_NOT_WARN((FLOAT_TYPE)(objects_freed * (double) num_allocs / +  (double) alloc_threshold)));    size++;       f_aggregate_mapping(size * 2);