Branch: Tag:

2000-04-17

2000-04-17 21:06:24 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

more gc() paranoia

Rev: src/block_alloc.h:1.19
Rev: src/error.c:1.49
Rev: src/gc.c:1.69
Rev: src/gc.h:1.32
Rev: src/interpret.c:1.142
Rev: src/object.c:1.112
Rev: src/pike_memory.c:1.66
Rev: src/svalue.c:1.69

1: - /* $Id: block_alloc.h,v 1.18 2000/03/24 01:24:49 hubbe Exp $ */ + /* $Id: block_alloc.h,v 1.19 2000/04/17 21:06:24 hubbe Exp $ */   #undef PRE_INIT_BLOCK   #undef INIT_BLOCK   #undef EXIT_BLOCK
72:    for(tmp=PIKE_CONCAT(DATA,_blocks);tmp;tmp=tmp->next) \    { \    int tmp2; \ -  extern void dmalloc_check_block_free(void *p); \ +  extern void dmalloc_check_block_free(void *p, char *loc); \    for(tmp2=0;tmp2<BSIZE;tmp2++) \ -  dmalloc_check_block_free(tmp->x+tmp2); \ +  dmalloc_check_block_free(tmp->x+tmp2, DMALLOC_LOCATION()); \    } \    ) \    while((tmp=PIKE_CONCAT(DATA,_blocks))) \