pike.git / src / gc.c

version» Context lines:

pike.git/src/gc.c:23:   #include "constants.h"   #include "interpret.h"   #include "bignum.h"      #include "gc.h"   #include "main.h"   #include <math.h>      #include "block_alloc.h"    - RCSID("$Id: gc.c,v 1.180 2002/01/16 02:54:12 nilsson Exp $"); + RCSID("$Id: gc.c,v 1.181 2002/05/10 23:41:19 nilsson Exp $");      /* Run garbage collect approximately every time    * 20 percent of all arrays, objects and programs is    * garbage.    */      #define GC_CONST 20   #define MIN_ALLOC_THRESHOLD 1000   #define MAX_ALLOC_THRESHOLD 10000000   #define MULTIPLIER 0.9
pike.git/src/gc.c:2362:    SET_ONERROR(tmp, free_obj_arr, obj_arr_);       {    struct gc_frame *p;    unsigned cycle = 0;    *obj_arr_ = allocate_array(0);       for (p = kill_list; p;) {    if ((cycle = CYCLE(p))) {    push_object((struct object *) p->data); -  *obj_arr_ = append_array(*obj_arr_, --sp); +  *obj_arr_ = append_array(*obj_arr_, --Pike_sp);    }    p = NEXT(p);    if (p ? ((unsigned)(CYCLE(p) != cycle)) : cycle) {    if ((*obj_arr_)->size >= 2) {    push_constant_text("gc");    push_constant_text("bad_cycle");    push_array(*obj_arr_);    *obj_arr_ = 0;    SAFE_APPLY_MASTER("runtime_warning", 3);    pop_stack();