Branch: Tag:

2001-09-06

2001-09-06 16:53:44 by Martin Stjernholm <mast@lysator.liu.se>

Added debug_gc_xmark_svalues2.

Rev: src/gc.c:1.173
Rev: src/gc.h:1.86

30:      #include "block_alloc.h"    - RCSID("$Id: gc.c,v 1.172 2001/08/30 23:21:54 mast Exp $"); + RCSID("$Id: gc.c,v 1.173 2001/09/06 16:53:43 mast Exp $");      /* Run garbage collect approximately every time    * 20 percent of all arrays, objects and programs is
633:    describe_something(found_in, found_in_type, 2, 0, DESCRIBE_MEM, 0);    }    } +  else +  fputc('\n', stderr);    fprintf(stderr,"----------end------------\n");   }   
648:    found_in=0;   }    + void debug_gc_xmark_svalues2(struct svalue *s, ptrdiff_t num, +  int data_type, void *data, char *fromwhere) + { +  char *old_found_where = found_where; +  if (fromwhere) found_where = fromwhere; +  found_in=data; +  found_in_type=data_type; +  gc_xmark_svalues(s,num); +  found_where=old_found_where; +  found_in_type=PIKE_T_UNKNOWN; +  found_in=0; + } +    void debug_gc_check_svalues2(struct svalue *s, ptrdiff_t num,    int data_type, void *data, char *fromwhere)   {