Branch: Tag:

1999-04-08

1999-04-08 22:27:10 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

coredump fixes + more debug

Rev: src/block_alloc.h:1.10
Rev: src/main.c:1.68
Rev: src/object.c:1.69
Rev: src/security.c:1.14
Rev: src/security.h:1.6

1: - /* $Id: block_alloc.h,v 1.9 1999/04/02 20:53:12 hubbe Exp $ */ + /* $Id: block_alloc.h,v 1.10 1999/04/08 22:27:06 hubbe Exp $ */   #undef PRE_INIT_BLOCK   #undef INIT_BLOCK   #undef EXIT_BLOCK
109:    \    \    \ - struct DATA *PIKE_CONCAT(make_,DATA)(void *ptr, int hval) \ + struct DATA *PIKE_CONCAT(make_,DATA)(void *ptr, int hval) \   { \    struct DATA *p; \    \ -  +  DO_IF_DEBUG( if(!PIKE_CONCAT(DATA,_hash_table)) \ +  fatal("Hash table error!\n"); ) \    PIKE_CONCAT(num_,DATA)++; \    \    if(( PIKE_CONCAT(num_,DATA)>>2 ) >= \
132:    sizeof(struct DATA *)*PIKE_CONCAT(DATA,_hash_table_size)); \    while(e-- >=0) \    { \ -  while((p=old_hash[e])) \ +  while((p=old_hash[e])) \    { \ -  old_hash[e]=p->next; \ +  old_hash[e]=p->next; \    hval=(long)(p-> data); \    hval%=PIKE_CONCAT(DATA,_hash_table_size); \    p->next=PIKE_CONCAT(DATA,_hash_table)[hval]; \
143:    } \    hval=(long)ptr; \    hval%=PIKE_CONCAT(DATA,_hash_table_size); \ -  free((char *)old_hash);\ +  free((char *)old_hash); \    }else{ \ -  PIKE_CONCAT(DATA,_hash_table)=old_hash; \ +  PIKE_CONCAT(DATA,_hash_table)=old_hash; \    PIKE_CONCAT(DATA,_hash_table_size)=e; \    } \    } \    \    p=PIKE_CONCAT(alloc_,DATA)(); \ -  p->data=ptr; \ +  p->data=ptr; \    p->next=PIKE_CONCAT(DATA,_hash_table)[hval]; \    PIKE_CONCAT(DATA,_hash_table)[hval]=p; \    return p; \
184:   { \    struct DATA *p; \    int hval=(long)ptr; \ +  if(!PIKE_CONCAT(DATA,_hash_table)) return 0; \    hval%=PIKE_CONCAT(DATA,_hash_table_size); \    if((p=PIKE_CONCAT(really_low_find_,DATA)(ptr, hval))) \    { \