Branch: Tag:

2000-04-12

2000-04-12 18:40:12 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

more debug in gc()

Rev: src/array.c:1.64
Rev: src/error.c:1.45
Rev: src/gc.c:1.54
Rev: src/gc.h:1.25
Rev: src/interpret.c:1.140
Rev: src/mapping.c:1.72
Rev: src/multiset.c:1.18
Rev: src/object.c:1.101
Rev: src/pike_memory.c:1.64
Rev: src/svalue.c:1.67

5:   \*/   /**/   #include "global.h" - RCSID("$Id: interpret.c,v 1.139 2000/04/08 02:01:08 hubbe Exp $"); + RCSID("$Id: interpret.c,v 1.140 2000/04/12 18:40:12 hubbe Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"
101: Inside #if defined(PIKE_DEBUG)
  static void gc_check_stack_callback(struct callback *foo, void *bar, void *gazonk)   {    struct pike_frame *f; -  debug_gc_xmark_svalues(evaluator_stack,sp-evaluator_stack-1,"interpreter stack"); +  debug_gc_xmark_svalues(evaluator_stack,sp-evaluator_stack-1," on current interpreter stack");       for(f=fp;f;f=f->next)    {    if(f->context.parent) -  gc_external_mark(f->context.parent); -  gc_external_mark(f->current_object); -  gc_external_mark(f->context.prog); +  gc_external_mark2(f->context.parent,0," in fp->context.parent on current stack"); +  gc_external_mark2(f->current_object,0," in fp->current_object on current stack"); +  gc_external_mark2(f->context.prog,0," in fp->context.prog on current stack");    }      }