e576bb | 2002-10-11 | Martin Nilsson | |
|
1b10db | 2002-10-08 | Martin Nilsson | |
|
421801 | 1999-01-31 | Fredrik Hübinette (Hubbe) | | #undef PRE_INIT_BLOCK
#undef INIT_BLOCK
#undef EXIT_BLOCK
#undef BLOCK_ALLOC
|
afbc72 | 2001-09-06 | Fredrik Hübinette (Hubbe) | | #undef LOW_PTR_HASH_ALLOC
#undef PTR_HASH_ALLOC_FIXED
|
fc2c83 | 1999-04-01 | Fredrik Hübinette (Hubbe) | | #undef PTR_HASH_ALLOC
|
cfa7d8 | 2000-01-27 | Fredrik Hübinette (Hubbe) | | #undef COUNT_BLOCK
#undef COUNT_OTHER
|
7d63aa | 2001-11-08 | Fredrik Hübinette (Hubbe) | | #undef BLOCK_ALLOC_HSIZE_SHIFT
|
379b68 | 2002-09-30 | Marcus Comstedt | | #undef MAX_EMPTY_BLOCKS
|
421801 | 1999-01-31 | Fredrik Hübinette (Hubbe) | |
|
2bfcfe | 1998-03-27 | Fredrik Hübinette (Hubbe) | | #define PRE_INIT_BLOCK(X)
|
21ed0e | 1998-02-19 | Fredrik Hübinette (Hubbe) | | #define INIT_BLOCK(X)
#define EXIT_BLOCK(X)
|
cfa7d8 | 2000-01-27 | Fredrik Hübinette (Hubbe) | | #define COUNT_BLOCK(X)
#define COUNT_OTHER()
|
7d63aa | 2001-11-08 | Fredrik Hübinette (Hubbe) | | #define BLOCK_ALLOC_HSIZE_SHIFT 2
|
379b68 | 2002-09-30 | Marcus Comstedt | | #define MAX_EMPTY_BLOCKS 4
|
421801 | 1999-01-31 | Fredrik Hübinette (Hubbe) | |
|
aad99b | 2001-03-28 | Fredrik Hübinette (Hubbe) | | #ifdef PIKE_RUN_UNLOCKED
#include "threads.h"
|
b076ce | 2001-08-31 | Fredrik Hübinette (Hubbe) | |
#define BA_UL(X) PIKE_CONCAT(X,_unlocked)
#define BA_STATIC static
|
0f5ac1 | 2001-09-02 | Henrik Grubbström (Grubba) | | #define BA_INLINE inline
|
b076ce | 2001-08-31 | Fredrik Hübinette (Hubbe) | | #else
#define BA_UL(X) X
#define BA_STATIC
|
0f5ac1 | 2001-09-02 | Henrik Grubbström (Grubba) | | #define BA_INLINE
|
aad99b | 2001-03-28 | Fredrik Hübinette (Hubbe) | | #endif
|
fc2c83 | 1999-04-01 | Fredrik Hübinette (Hubbe) | | #define BLOCK_ALLOC(DATA,BSIZE) \
\
struct PIKE_CONCAT(DATA,_block) \
{ \
struct PIKE_CONCAT(DATA,_block) *next; \
|
379b68 | 2002-09-30 | Marcus Comstedt | | struct PIKE_CONCAT(DATA,_block) *prev; \
struct DATA *PIKE_CONCAT3(free_,DATA,s); \
INT32 used; \
|
fc2c83 | 1999-04-01 | Fredrik Hübinette (Hubbe) | | struct DATA x[BSIZE]; \
}; \
\
static struct PIKE_CONCAT(DATA,_block) *PIKE_CONCAT(DATA,_blocks)=0; \
|
379b68 | 2002-09-30 | Marcus Comstedt | | static struct PIKE_CONCAT(DATA,_block) *PIKE_CONCAT(DATA,_free_blocks)=(void*)-1; \
static INT32 PIKE_CONCAT3(num_empty_,DATA,_blocks)=0; \
|
aad99b | 2001-03-28 | Fredrik Hübinette (Hubbe) | | DO_IF_RUN_UNLOCKED(static PIKE_MUTEX_T PIKE_CONCAT(DATA,_mutex);) \
|
fc2c83 | 1999-04-01 | Fredrik Hübinette (Hubbe) | | \
|
ed3a5b | 2001-09-01 | Fredrik Hübinette (Hubbe) | | static void PIKE_CONCAT(alloc_more_,DATA)(void) \
{ \
struct PIKE_CONCAT(DATA,_block) *n; \
int e; \
n=(struct PIKE_CONCAT(DATA,_block) *) \
malloc(sizeof(struct PIKE_CONCAT(DATA,_block))); \
if(!n) \
|
fc2c83 | 1999-04-01 | Fredrik Hübinette (Hubbe) | | { \
|
ed3a5b | 2001-09-01 | Fredrik Hübinette (Hubbe) | | fprintf(stderr,"Fatal: out of memory.\n"); \
exit(17); \
} \
|
379b68 | 2002-09-30 | Marcus Comstedt | | if((n->next=PIKE_CONCAT(DATA,_blocks))) \
n->next->prev=n; \
n->prev=NULL; \
n->used=0; \
|
ed3a5b | 2001-09-01 | Fredrik Hübinette (Hubbe) | | PIKE_CONCAT(DATA,_blocks)=n; \
|
379b68 | 2002-09-30 | Marcus Comstedt | | PIKE_CONCAT(DATA,_free_blocks)=n; \
|
fc2c83 | 1999-04-01 | Fredrik Hübinette (Hubbe) | | \
|
379b68 | 2002-09-30 | Marcus Comstedt | | n->x[0].BLOCK_ALLOC_NEXT=NULL; \
PRE_INIT_BLOCK( n->x ); \
for(e=1;e<BSIZE;e++) \
|
ed3a5b | 2001-09-01 | Fredrik Hübinette (Hubbe) | | { \
|
379b68 | 2002-09-30 | Marcus Comstedt | | n->x[e].BLOCK_ALLOC_NEXT=(void *)&n->x[e-1]; \
|
ed3a5b | 2001-09-01 | Fredrik Hübinette (Hubbe) | | PRE_INIT_BLOCK( (n->x+e) ); \
|
fc2c83 | 1999-04-01 | Fredrik Hübinette (Hubbe) | | } \
|
379b68 | 2002-09-30 | Marcus Comstedt | | n->PIKE_CONCAT3(free_,DATA,s)=&n->x[BSIZE-1]; \
|
ed3a5b | 2001-09-01 | Fredrik Hübinette (Hubbe) | | } \
\
|
0f5ac1 | 2001-09-02 | Henrik Grubbström (Grubba) | | BA_STATIC BA_INLINE struct DATA *BA_UL(PIKE_CONCAT(alloc_,DATA))(void) \
|
ed3a5b | 2001-09-01 | Fredrik Hübinette (Hubbe) | | { \
struct DATA *tmp; \
|
379b68 | 2002-09-30 | Marcus Comstedt | | struct PIKE_CONCAT(DATA,_block) *blk; \
\
if(!(blk = PIKE_CONCAT(DATA,_free_blocks))) { \
|
ed3a5b | 2001-09-01 | Fredrik Hübinette (Hubbe) | | PIKE_CONCAT(alloc_more_,DATA)(); \
|
379b68 | 2002-09-30 | Marcus Comstedt | | blk = PIKE_CONCAT(DATA,_blocks); \
blk->used++; \
} \
|
982043 | 2001-07-01 | Martin Stjernholm | | DO_IF_DEBUG( \
|
379b68 | 2002-09-30 | Marcus Comstedt | | else if (PIKE_CONCAT(DATA,_free_blocks) == (void *)-1) \
Pike_fatal("Block alloc not initialized.\n"); \
|
982043 | 2001-07-01 | Martin Stjernholm | | ) \
|
379b68 | 2002-09-30 | Marcus Comstedt | | else if(!blk->used++) \
--PIKE_CONCAT3(num_empty_,DATA,_blocks); \
|
fc2c83 | 1999-04-01 | Fredrik Hübinette (Hubbe) | | \
|
379b68 | 2002-09-30 | Marcus Comstedt | | tmp = blk->PIKE_CONCAT3(free_,DATA,s); \
if(!(blk->PIKE_CONCAT3(free_,DATA,s) = (void *)tmp->BLOCK_ALLOC_NEXT)) \
PIKE_CONCAT(DATA,_free_blocks) = blk->prev; \
|
7d63aa | 2001-11-08 | Fredrik Hübinette (Hubbe) | | DO_IF_DMALLOC( \
dmalloc_unregister(tmp, 1); \
dmalloc_register(tmp,sizeof(struct DATA), DMALLOC_LOCATION()); \
) \
|
fc2c83 | 1999-04-01 | Fredrik Hübinette (Hubbe) | | INIT_BLOCK(tmp); \
return tmp; \
} \
\
|
b076ce | 2001-08-31 | Fredrik Hübinette (Hubbe) | | DO_IF_RUN_UNLOCKED( \
|
0f5ac1 | 2001-09-02 | Henrik Grubbström (Grubba) | | struct DATA *PIKE_CONCAT(alloc_,DATA)(void) \
|
805f81 | 2001-03-30 | Fredrik Hübinette (Hubbe) | | { \
struct DATA *ret; \
DO_IF_RUN_UNLOCKED(mt_lock(&PIKE_CONCAT(DATA,_mutex))); \
ret=PIKE_CONCAT3(alloc_,DATA,_unlocked)(); \
DO_IF_RUN_UNLOCKED(mt_unlock(&PIKE_CONCAT(DATA,_mutex))); \
return ret; \
|
b076ce | 2001-08-31 | Fredrik Hübinette (Hubbe) | | }) \
|
805f81 | 2001-03-30 | Fredrik Hübinette (Hubbe) | | \
|
fd46f5 | 2001-09-25 | Fredrik Hübinette (Hubbe) | | DO_IF_DMALLOC( \
static void PIKE_CONCAT(check_free_,DATA)(struct DATA *d) \
{ \
struct PIKE_CONCAT(DATA,_block) *tmp; \
for(tmp=PIKE_CONCAT(DATA,_blocks);tmp;tmp=tmp->next) \
{ \
if( (char *)d < (char *)tmp) continue; \
if( (char *)d >= (char *)(tmp->x+BSIZE)) continue; \
return; \
} \
|
5aad93 | 2002-08-15 | Marcus Comstedt | | Pike_fatal("really_free_%s called on non-block_alloc region (%p).\n", \
|
fd46f5 | 2001-09-25 | Fredrik Hübinette (Hubbe) | | #DATA, d); \
} \
) \
\
|
b076ce | 2001-08-31 | Fredrik Hübinette (Hubbe) | | DO_IF_RUN_UNLOCKED( \
|
805f81 | 2001-03-30 | Fredrik Hübinette (Hubbe) | | void PIKE_CONCAT3(really_free_,DATA,_unlocked)(struct DATA *d) \
{ \
|
379b68 | 2002-09-30 | Marcus Comstedt | | struct PIKE_CONCAT(DATA,_block) *blk = PIKE_CONCAT(DATA,_free_blocks); \
|
d80f74 | 2002-10-01 | Marcus Comstedt | | if(blk == NULL || (char *)d < (char *)blk || \
|
379b68 | 2002-09-30 | Marcus Comstedt | | (char *)d >= (char *)(blk->x+BSIZE)) { \
blk = PIKE_CONCAT(DATA,_blocks); \
if((char *)d < (char *)blk || \
(char *)d >= (char *)(blk->x+BSIZE)) { \
do \
blk = blk->next; \
while((char *)d < (char *)blk || \
(char *)d >= (char *)(blk->x+BSIZE)); \
if(blk == PIKE_CONCAT(DATA,_free_blocks)) \
PIKE_CONCAT(DATA,_free_blocks) = blk->prev; \
blk->prev->next = blk->next; \
if(blk->next) \
blk->next->prev = blk->prev; \
blk->prev = NULL; \
blk->next = PIKE_CONCAT(DATA,_blocks); \
blk->next->prev = blk; \
PIKE_CONCAT(DATA,_blocks) = blk; \
} \
|
d80f74 | 2002-10-01 | Marcus Comstedt | | if(PIKE_CONCAT(DATA,_free_blocks) == NULL) \
PIKE_CONCAT(DATA,_free_blocks) = blk; \
|
379b68 | 2002-09-30 | Marcus Comstedt | | } \
|
805f81 | 2001-03-30 | Fredrik Hübinette (Hubbe) | | EXIT_BLOCK(d); \
|
fd46f5 | 2001-09-25 | Fredrik Hübinette (Hubbe) | | DO_IF_DMALLOC( PIKE_CONCAT(check_free_,DATA)(d); \
|
08cf75 | 2001-10-06 | Fredrik Hübinette (Hubbe) | | dmalloc_mark_as_free(d, 1); ) \
|
379b68 | 2002-09-30 | Marcus Comstedt | | d->BLOCK_ALLOC_NEXT = (void *)blk->PIKE_CONCAT3(free_,DATA,s); \
|
805f81 | 2001-03-30 | Fredrik Hübinette (Hubbe) | | PRE_INIT_BLOCK(d); \
|
379b68 | 2002-09-30 | Marcus Comstedt | | blk->PIKE_CONCAT3(free_,DATA,s)=d; \
if(!--blk->used && \
|
d80f74 | 2002-10-01 | Marcus Comstedt | | ++PIKE_CONCAT3(num_empty_,DATA,_blocks) > MAX_EMPTY_BLOCKS) { \
if(blk == PIKE_CONCAT(DATA,_free_blocks)) { \
if((blk->prev->next = blk->next)) \
blk->next->prev = blk->prev; \
PIKE_CONCAT(DATA,_free_blocks) = blk->prev; \
} else { \
PIKE_CONCAT(DATA,_blocks) = blk->next; \
blk->next->prev = NULL; \
} \
|
379b68 | 2002-09-30 | Marcus Comstedt | | free(blk); \
--PIKE_CONCAT3(num_empty_,DATA,_blocks); \
} \
|
b076ce | 2001-08-31 | Fredrik Hübinette (Hubbe) | | }) \
|
805f81 | 2001-03-30 | Fredrik Hübinette (Hubbe) | | \
|
fc2c83 | 1999-04-01 | Fredrik Hübinette (Hubbe) | | void PIKE_CONCAT(really_free_,DATA)(struct DATA *d) \
{ \
|
379b68 | 2002-09-30 | Marcus Comstedt | | struct PIKE_CONCAT(DATA,_block) *blk; \
|
fc2c83 | 1999-04-01 | Fredrik Hübinette (Hubbe) | | EXIT_BLOCK(d); \
|
aad99b | 2001-03-28 | Fredrik Hübinette (Hubbe) | | DO_IF_RUN_UNLOCKED(mt_lock(&PIKE_CONCAT(DATA,_mutex))); \
|
379b68 | 2002-09-30 | Marcus Comstedt | | blk = PIKE_CONCAT(DATA,_free_blocks); \
|
d80f74 | 2002-10-01 | Marcus Comstedt | | if(blk == NULL || (char *)d < (char *)blk || \
|
379b68 | 2002-09-30 | Marcus Comstedt | | (char *)d >= (char *)(blk->x+BSIZE)) { \
blk = PIKE_CONCAT(DATA,_blocks); \
if((char *)d < (char *)blk || \
(char *)d >= (char *)(blk->x+BSIZE)) { \
do \
blk = blk->next; \
while((char *)d < (char *)blk || \
(char *)d >= (char *)(blk->x+BSIZE)); \
if(blk == PIKE_CONCAT(DATA,_free_blocks)) \
PIKE_CONCAT(DATA,_free_blocks) = blk->prev; \
blk->prev->next = blk->next; \
if(blk->next) \
blk->next->prev = blk->prev; \
blk->prev = NULL; \
blk->next = PIKE_CONCAT(DATA,_blocks); \
blk->next->prev = blk; \
PIKE_CONCAT(DATA,_blocks) = blk; \
} \
|
d80f74 | 2002-10-01 | Marcus Comstedt | | if(PIKE_CONCAT(DATA,_free_blocks) == NULL) \
PIKE_CONCAT(DATA,_free_blocks) = blk; \
|
379b68 | 2002-09-30 | Marcus Comstedt | | } \
|
fd46f5 | 2001-09-25 | Fredrik Hübinette (Hubbe) | | DO_IF_DMALLOC( PIKE_CONCAT(check_free_,DATA)(d); \
|
08cf75 | 2001-10-06 | Fredrik Hübinette (Hubbe) | | dmalloc_mark_as_free(d, 1); ) \
|
379b68 | 2002-09-30 | Marcus Comstedt | | d->BLOCK_ALLOC_NEXT = (void *)blk->PIKE_CONCAT3(free_,DATA,s); \
|
fc2c83 | 1999-04-01 | Fredrik Hübinette (Hubbe) | | PRE_INIT_BLOCK(d); \
|
379b68 | 2002-09-30 | Marcus Comstedt | | blk->PIKE_CONCAT3(free_,DATA,s)=d; \
if(!--blk->used && \
|
d80f74 | 2002-10-01 | Marcus Comstedt | | ++PIKE_CONCAT3(num_empty_,DATA,_blocks) > MAX_EMPTY_BLOCKS) { \
if(blk == PIKE_CONCAT(DATA,_free_blocks)) { \
if((blk->prev->next = blk->next)) \
blk->next->prev = blk->prev; \
PIKE_CONCAT(DATA,_free_blocks) = blk->prev; \
} else { \
PIKE_CONCAT(DATA,_blocks) = blk->next; \
blk->next->prev = NULL; \
} \
|
379b68 | 2002-09-30 | Marcus Comstedt | | free(blk); \
--PIKE_CONCAT3(num_empty_,DATA,_blocks); \
} \
|
aad99b | 2001-03-28 | Fredrik Hübinette (Hubbe) | | DO_IF_RUN_UNLOCKED(mt_unlock(&PIKE_CONCAT(DATA,_mutex))); \
|
fc2c83 | 1999-04-01 | Fredrik Hübinette (Hubbe) | | } \
\
|
805f81 | 2001-03-30 | Fredrik Hübinette (Hubbe) | | static void PIKE_CONCAT3(free_all_,DATA,_blocks_unlocked)(void) \
|
fc2c83 | 1999-04-01 | Fredrik Hübinette (Hubbe) | | { \
struct PIKE_CONCAT(DATA,_block) *tmp; \
|
60d987 | 2000-03-23 | Fredrik Hübinette (Hubbe) | | DO_IF_DMALLOC( \
for(tmp=PIKE_CONCAT(DATA,_blocks);tmp;tmp=tmp->next) \
{ \
int tmp2; \
|
111fdd | 2000-04-17 | Fredrik Hübinette (Hubbe) | | extern void dmalloc_check_block_free(void *p, char *loc); \
|
60d987 | 2000-03-23 | Fredrik Hübinette (Hubbe) | | for(tmp2=0;tmp2<BSIZE;tmp2++) \
|
7d63aa | 2001-11-08 | Fredrik Hübinette (Hubbe) | | { \
|
111fdd | 2000-04-17 | Fredrik Hübinette (Hubbe) | | dmalloc_check_block_free(tmp->x+tmp2, DMALLOC_LOCATION()); \
|
7d63aa | 2001-11-08 | Fredrik Hübinette (Hubbe) | | dmalloc_unregister(tmp->x+tmp2, 1); \
} \
|
60d987 | 2000-03-23 | Fredrik Hübinette (Hubbe) | | } \
) \
|
fc2c83 | 1999-04-01 | Fredrik Hübinette (Hubbe) | | while((tmp=PIKE_CONCAT(DATA,_blocks))) \
{ \
PIKE_CONCAT(DATA,_blocks)=tmp->next; \
free((char *)tmp); \
} \
PIKE_CONCAT(DATA,_blocks)=0; \
|
379b68 | 2002-09-30 | Marcus Comstedt | | PIKE_CONCAT(DATA,_free_blocks)=0; \
PIKE_CONCAT3(num_empty_,DATA,_blocks)=0; \
|
fc2c83 | 1999-04-01 | Fredrik Hübinette (Hubbe) | | } \
|
424d9c | 1999-05-02 | Fredrik Hübinette (Hubbe) | | \
|
805f81 | 2001-03-30 | Fredrik Hübinette (Hubbe) | | void PIKE_CONCAT3(free_all_,DATA,_blocks)(void) \
{ \
DO_IF_RUN_UNLOCKED(mt_lock(&PIKE_CONCAT(DATA,_mutex))); \
PIKE_CONCAT3(free_all_,DATA,_blocks_unlocked)(); \
DO_IF_RUN_UNLOCKED(mt_unlock(&PIKE_CONCAT(DATA,_mutex))); \
} \
|
424d9c | 1999-05-02 | Fredrik Hübinette (Hubbe) | | \
void PIKE_CONCAT3(count_memory_in_,DATA,s)(INT32 *num_, INT32 *size_) \
{ \
INT32 num=0, size=0; \
struct PIKE_CONCAT(DATA,_block) *tmp; \
struct DATA *tmp2; \
|
aad99b | 2001-03-28 | Fredrik Hübinette (Hubbe) | | DO_IF_RUN_UNLOCKED(mt_lock(&PIKE_CONCAT(DATA,_mutex))); \
|
424d9c | 1999-05-02 | Fredrik Hübinette (Hubbe) | | for(tmp=PIKE_CONCAT(DATA,_blocks);tmp;tmp=tmp->next) \
{ \
size+=sizeof(struct PIKE_CONCAT(DATA,_block)); \
|
379b68 | 2002-09-30 | Marcus Comstedt | | num+=tmp->used; \
|
cfa7d8 | 2000-01-27 | Fredrik Hübinette (Hubbe) | | COUNT_BLOCK(tmp); \
|
424d9c | 1999-05-02 | Fredrik Hübinette (Hubbe) | | } \
|
cfa7d8 | 2000-01-27 | Fredrik Hübinette (Hubbe) | | COUNT_OTHER(); \
|
424d9c | 1999-05-02 | Fredrik Hübinette (Hubbe) | | *num_=num; \
*size_=size; \
|
aad99b | 2001-03-28 | Fredrik Hübinette (Hubbe) | | DO_IF_RUN_UNLOCKED(mt_unlock(&PIKE_CONCAT(DATA,_mutex))); \
} \
\
\
void PIKE_CONCAT3(init_,DATA,_blocks)(void) \
{ \
|
805f81 | 2001-03-30 | Fredrik Hübinette (Hubbe) | | /* DO_IF_RUN_UNLOCKED(mt_init_recursive(&PIKE_CONCAT(DATA,_mutex)));*/ \
DO_IF_RUN_UNLOCKED(mt_init(&PIKE_CONCAT(DATA,_mutex))); \
|
379b68 | 2002-09-30 | Marcus Comstedt | | PIKE_CONCAT(DATA,_free_blocks)=0; \
|
aad99b | 2001-03-28 | Fredrik Hübinette (Hubbe) | | } \
|
fc2c83 | 1999-04-01 | Fredrik Hübinette (Hubbe) | |
|
afbc72 | 2001-09-06 | Fredrik Hübinette (Hubbe) | | #define LOW_PTR_HASH_ALLOC(DATA,BSIZE) \
|
011ad3 | 1999-10-22 | Fredrik Hübinette (Hubbe) | | \
BLOCK_ALLOC(DATA,BSIZE) \
\
|
3f8432 | 2000-04-23 | Martin Stjernholm | | struct DATA **PIKE_CONCAT(DATA,_hash_table)=0; \
|
59e011 | 2001-07-03 | Fredrik Hübinette (Hubbe) | | size_t PIKE_CONCAT(DATA,_hash_table_size)=0; \
|
afbc72 | 2001-09-06 | Fredrik Hübinette (Hubbe) | | size_t PIKE_CONCAT(DATA,_hash_table_magnitude)=0; \
|
59e011 | 2001-07-03 | Fredrik Hübinette (Hubbe) | | static size_t PIKE_CONCAT(num_,DATA)=0; \
|
011ad3 | 1999-10-22 | Fredrik Hübinette (Hubbe) | | \
|
25bdc7 | 2001-08-31 | Martin Stjernholm | | static inline struct DATA * \
|
59e011 | 2001-07-03 | Fredrik Hübinette (Hubbe) | | PIKE_CONCAT3(really_low_find_,DATA,_unlocked)(void *ptr, size_t hval) \
|
011ad3 | 1999-10-22 | Fredrik Hübinette (Hubbe) | | { \
struct DATA *p,**pp; \
|
ec6b78 | 2000-03-21 | Fredrik Hübinette (Hubbe) | | p=PIKE_CONCAT(DATA,_hash_table)[hval]; \
|
aad99b | 2001-03-28 | Fredrik Hübinette (Hubbe) | | if(!p || p->data == ptr) \
{ \
DO_IF_RUN_UNLOCKED(mt_unlock(&PIKE_CONCAT(DATA,_mutex))); \
return p; \
} \
|
ec6b78 | 2000-03-21 | Fredrik Hübinette (Hubbe) | | while((p=*(pp=&p->BLOCK_ALLOC_NEXT))) \
|
011ad3 | 1999-10-22 | Fredrik Hübinette (Hubbe) | | { \
if(p->data==ptr) \
{ \
*pp=p->BLOCK_ALLOC_NEXT; \
p->BLOCK_ALLOC_NEXT=PIKE_CONCAT(DATA,_hash_table)[hval]; \
PIKE_CONCAT(DATA,_hash_table)[hval]=p; \
return p; \
} \
} \
return 0; \
} \
\
struct DATA *PIKE_CONCAT(find_,DATA)(void *ptr) \
{ \
|
805f81 | 2001-03-30 | Fredrik Hübinette (Hubbe) | | struct DATA *p; \
|
c7241b | 2000-08-10 | Henrik Grubbström (Grubba) | | size_t hval = (size_t)ptr; \
|
805f81 | 2001-03-30 | Fredrik Hübinette (Hubbe) | | DO_IF_RUN_UNLOCKED(mt_lock(&PIKE_CONCAT(DATA,_mutex))); \
if(!PIKE_CONCAT(DATA,_hash_table_size)) { \
DO_IF_RUN_UNLOCKED(mt_unlock(&PIKE_CONCAT(DATA,_mutex))); \
return 0; \
} \
|
011ad3 | 1999-10-22 | Fredrik Hübinette (Hubbe) | | hval%=PIKE_CONCAT(DATA,_hash_table_size); \
|
805f81 | 2001-03-30 | Fredrik Hübinette (Hubbe) | | p=PIKE_CONCAT3(really_low_find_,DATA,_unlocked)(ptr, hval); \
DO_IF_RUN_UNLOCKED(mt_unlock(&PIKE_CONCAT(DATA,_mutex))); \
return p; \
|
011ad3 | 1999-10-22 | Fredrik Hübinette (Hubbe) | | } \
\
\
|
805f81 | 2001-03-30 | Fredrik Hübinette (Hubbe) | | \
|
59e011 | 2001-07-03 | Fredrik Hübinette (Hubbe) | | struct DATA *PIKE_CONCAT(make_,DATA)(void *ptr, size_t hval) \
|
805f81 | 2001-03-30 | Fredrik Hübinette (Hubbe) | | { \
struct DATA *p; \
DO_IF_RUN_UNLOCKED(mt_lock(&PIKE_CONCAT(DATA,_mutex))); \
p=PIKE_CONCAT3(make_,DATA,_unlocked)(ptr,hval); \
|
aad99b | 2001-03-28 | Fredrik Hübinette (Hubbe) | | DO_IF_RUN_UNLOCKED(mt_unlock(&PIKE_CONCAT(DATA,_mutex))); \
|
011ad3 | 1999-10-22 | Fredrik Hübinette (Hubbe) | | return p; \
} \
\
|
f3378f | 2000-05-16 | Fredrik Hübinette (Hubbe) | | struct DATA *PIKE_CONCAT(get_,DATA)(void *ptr) \
|
011ad3 | 1999-10-22 | Fredrik Hübinette (Hubbe) | | { \
struct DATA *p; \
|
59e011 | 2001-07-03 | Fredrik Hübinette (Hubbe) | | size_t hval=(size_t)ptr; \
|
aad99b | 2001-03-28 | Fredrik Hübinette (Hubbe) | | DO_IF_RUN_UNLOCKED(mt_lock(&PIKE_CONCAT(DATA,_mutex))); \
|
011ad3 | 1999-10-22 | Fredrik Hübinette (Hubbe) | | hval%=PIKE_CONCAT(DATA,_hash_table_size); \
|
805f81 | 2001-03-30 | Fredrik Hübinette (Hubbe) | | if(!(p=PIKE_CONCAT3(really_low_find_,DATA,_unlocked)(ptr, hval))) \
p=PIKE_CONCAT3(make_,DATA,_unlocked)(ptr, hval); \
|
aad99b | 2001-03-28 | Fredrik Hübinette (Hubbe) | | DO_IF_RUN_UNLOCKED(mt_unlock(&PIKE_CONCAT(DATA,_mutex))); \
return p; \
|
011ad3 | 1999-10-22 | Fredrik Hübinette (Hubbe) | | } \
\
int PIKE_CONCAT3(check_,DATA,_semafore)(void *ptr) \
{ \
struct DATA *p; \
|
59e011 | 2001-07-03 | Fredrik Hübinette (Hubbe) | | size_t hval=(size_t)ptr; \
|
aad99b | 2001-03-28 | Fredrik Hübinette (Hubbe) | | DO_IF_RUN_UNLOCKED(mt_lock(&PIKE_CONCAT(DATA,_mutex))); \
|
011ad3 | 1999-10-22 | Fredrik Hübinette (Hubbe) | | hval%=PIKE_CONCAT(DATA,_hash_table_size); \
|
805f81 | 2001-03-30 | Fredrik Hübinette (Hubbe) | | if((p=PIKE_CONCAT3(really_low_find_,DATA,_unlocked)(ptr, hval))) \
|
aad99b | 2001-03-28 | Fredrik Hübinette (Hubbe) | | { \
DO_IF_RUN_UNLOCKED(mt_unlock(&PIKE_CONCAT(DATA,_mutex))); \
|
011ad3 | 1999-10-22 | Fredrik Hübinette (Hubbe) | | return 0; \
|
aad99b | 2001-03-28 | Fredrik Hübinette (Hubbe) | | } \
|
011ad3 | 1999-10-22 | Fredrik Hübinette (Hubbe) | | \
|
805f81 | 2001-03-30 | Fredrik Hübinette (Hubbe) | | PIKE_CONCAT3(make_,DATA,_unlocked)(ptr, hval); \
|
aad99b | 2001-03-28 | Fredrik Hübinette (Hubbe) | | DO_IF_RUN_UNLOCKED(mt_unlock(&PIKE_CONCAT(DATA,_mutex))); \
|
011ad3 | 1999-10-22 | Fredrik Hübinette (Hubbe) | | return 1; \
} \
\
int PIKE_CONCAT(remove_,DATA)(void *ptr) \
{ \
struct DATA *p; \
|
59e011 | 2001-07-03 | Fredrik Hübinette (Hubbe) | | size_t hval=(size_t)ptr; \
|
aad99b | 2001-03-28 | Fredrik Hübinette (Hubbe) | | DO_IF_RUN_UNLOCKED(mt_lock(&PIKE_CONCAT(DATA,_mutex))); \
if(!PIKE_CONCAT(DATA,_hash_table)) \
{ \
DO_IF_RUN_UNLOCKED(mt_unlock(&PIKE_CONCAT(DATA,_mutex))); \
return 0; \
} \
|
011ad3 | 1999-10-22 | Fredrik Hübinette (Hubbe) | | hval%=PIKE_CONCAT(DATA,_hash_table_size); \
|
805f81 | 2001-03-30 | Fredrik Hübinette (Hubbe) | | if((p=PIKE_CONCAT3(really_low_find_,DATA,_unlocked)(ptr, hval))) \
|
011ad3 | 1999-10-22 | Fredrik Hübinette (Hubbe) | | { \
PIKE_CONCAT(num_,DATA)--; \
|
afbc72 | 2001-09-06 | Fredrik Hübinette (Hubbe) | | DO_IF_DEBUG( if(PIKE_CONCAT(DATA,_hash_table)[hval]!=p) \
|
5aad93 | 2002-08-15 | Marcus Comstedt | | Pike_fatal("GAOssdf\n"); ); \
|
011ad3 | 1999-10-22 | Fredrik Hübinette (Hubbe) | | PIKE_CONCAT(DATA,_hash_table)[hval]=p->BLOCK_ALLOC_NEXT; \
|
b076ce | 2001-08-31 | Fredrik Hübinette (Hubbe) | | BA_UL(PIKE_CONCAT(really_free_,DATA))(p); \
|
aad99b | 2001-03-28 | Fredrik Hübinette (Hubbe) | | DO_IF_RUN_UNLOCKED(mt_unlock(&PIKE_CONCAT(DATA,_mutex))); \
|
011ad3 | 1999-10-22 | Fredrik Hübinette (Hubbe) | | return 1; \
} \
|
aad99b | 2001-03-28 | Fredrik Hübinette (Hubbe) | | DO_IF_RUN_UNLOCKED(mt_unlock(&PIKE_CONCAT(DATA,_mutex))); \
|
011ad3 | 1999-10-22 | Fredrik Hübinette (Hubbe) | | return 0; \
} \
\
|
afbc72 | 2001-09-06 | Fredrik Hübinette (Hubbe) | | void PIKE_CONCAT3(low_init_,DATA,_hash)(size_t size) \
|
011ad3 | 1999-10-22 | Fredrik Hübinette (Hubbe) | | { \
extern INT32 hashprimes[32]; \
|
aad99b | 2001-03-28 | Fredrik Hübinette (Hubbe) | | extern int my_log2(size_t x); \
PIKE_CONCAT3(init_,DATA,_blocks)(); \
DO_IF_RUN_UNLOCKED(mt_lock(&PIKE_CONCAT(DATA,_mutex))); \
|
afbc72 | 2001-09-06 | Fredrik Hübinette (Hubbe) | | PIKE_CONCAT(DATA,_hash_table_size)= \
hashprimes[PIKE_CONCAT(DATA,_hash_table_magnitude)=my_log2(size)]; \
|
011ad3 | 1999-10-22 | Fredrik Hübinette (Hubbe) | | \
PIKE_CONCAT(DATA,_hash_table)=(struct DATA **) \
malloc(sizeof(struct DATA *)*PIKE_CONCAT(DATA,_hash_table_size)); \
if(!PIKE_CONCAT(DATA,_hash_table)) \
{ \
fprintf(stderr,"Fatal: out of memory.\n"); \
exit(17); \
} \
MEMSET(PIKE_CONCAT(DATA,_hash_table),0, \
sizeof(struct DATA *)*PIKE_CONCAT(DATA,_hash_table_size)); \
|
aad99b | 2001-03-28 | Fredrik Hübinette (Hubbe) | | DO_IF_RUN_UNLOCKED(mt_unlock(&PIKE_CONCAT(DATA,_mutex))); \
|
afbc72 | 2001-09-06 | Fredrik Hübinette (Hubbe) | | } \
\
\
void PIKE_CONCAT3(init_,DATA,_hash)(void) \
{ \
PIKE_CONCAT3(low_init_,DATA,_hash)(BSIZE); \
|
011ad3 | 1999-10-22 | Fredrik Hübinette (Hubbe) | | } \
\
void PIKE_CONCAT3(exit_,DATA,_hash)(void) \
{ \
|
aad99b | 2001-03-28 | Fredrik Hübinette (Hubbe) | | DO_IF_RUN_UNLOCKED(mt_lock(&PIKE_CONCAT(DATA,_mutex))); \
|
805f81 | 2001-03-30 | Fredrik Hübinette (Hubbe) | | PIKE_CONCAT3(free_all_,DATA,_blocks_unlocked)(); \
|
011ad3 | 1999-10-22 | Fredrik Hübinette (Hubbe) | | free(PIKE_CONCAT(DATA,_hash_table)); \
PIKE_CONCAT(DATA,_hash_table)=0; \
|
7bcb1d | 1999-12-19 | Fredrik Hübinette (Hubbe) | | PIKE_CONCAT(num_,DATA)=0; \
|
aad99b | 2001-03-28 | Fredrik Hübinette (Hubbe) | | DO_IF_RUN_UNLOCKED(mt_unlock(&PIKE_CONCAT(DATA,_mutex))); \
|
424d9c | 1999-05-02 | Fredrik Hübinette (Hubbe) | | }
|
afbc72 | 2001-09-06 | Fredrik Hübinette (Hubbe) | |
#define PTR_HASH_ALLOC_FIXED(DATA,BSIZE) \
struct DATA *PIKE_CONCAT3(make_,DATA,_unlocked)(void *ptr, size_t hval); \
LOW_PTR_HASH_ALLOC(DATA,BSIZE) \
\
struct DATA *PIKE_CONCAT3(make_,DATA,_unlocked)(void *ptr, size_t hval) \
{ \
struct DATA *p; \
\
DO_IF_DEBUG( if(!PIKE_CONCAT(DATA,_hash_table)) \
|
5aad93 | 2002-08-15 | Marcus Comstedt | | Pike_fatal("Hash table error!\n"); ) \
|
afbc72 | 2001-09-06 | Fredrik Hübinette (Hubbe) | | PIKE_CONCAT(num_,DATA)++; \
\
p=BA_UL(PIKE_CONCAT(alloc_,DATA))(); \
p->data=ptr; \
p->BLOCK_ALLOC_NEXT=PIKE_CONCAT(DATA,_hash_table)[hval]; \
PIKE_CONCAT(DATA,_hash_table)[hval]=p; \
return p; \
} \
#define PTR_HASH_ALLOC(DATA,BSIZE) \
struct DATA *PIKE_CONCAT3(make_,DATA,_unlocked)(void *ptr, size_t hval); \
LOW_PTR_HASH_ALLOC(DATA,BSIZE) \
\
static void PIKE_CONCAT(DATA,_rehash)() \
{ \
/* Time to re-hash */ \
extern INT32 hashprimes[32]; \
struct DATA **old_hash; \
struct DATA *p; \
size_t hval; \
size_t e; \
\
old_hash= PIKE_CONCAT(DATA,_hash_table); \
e=PIKE_CONCAT(DATA,_hash_table_size); \
\
PIKE_CONCAT(DATA,_hash_table_magnitude)++; \
PIKE_CONCAT(DATA,_hash_table_size)= \
hashprimes[PIKE_CONCAT(DATA,_hash_table_magnitude)]; \
if((PIKE_CONCAT(DATA,_hash_table)=(struct DATA **) \
malloc(PIKE_CONCAT(DATA,_hash_table_size)* \
sizeof(struct DATA *)))) \
{ \
MEMSET(PIKE_CONCAT(DATA,_hash_table),0, \
sizeof(struct DATA *)*PIKE_CONCAT(DATA,_hash_table_size)); \
while(e-- > 0) \
{ \
while((p=old_hash[e])) \
{ \
old_hash[e]=p->BLOCK_ALLOC_NEXT; \
hval=(size_t)(p->data); \
hval%=PIKE_CONCAT(DATA,_hash_table_size); \
p->BLOCK_ALLOC_NEXT=PIKE_CONCAT(DATA,_hash_table)[hval]; \
PIKE_CONCAT(DATA,_hash_table)[hval]=p; \
} \
} \
free((char *)old_hash); \
}else{ \
PIKE_CONCAT(DATA,_hash_table)=old_hash; \
PIKE_CONCAT(DATA,_hash_table_size)=e; \
} \
} \
\
struct DATA *PIKE_CONCAT3(make_,DATA,_unlocked)(void *ptr, size_t hval) \
{ \
struct DATA *p; \
\
DO_IF_DEBUG( if(!PIKE_CONCAT(DATA,_hash_table)) \
|
5aad93 | 2002-08-15 | Marcus Comstedt | | Pike_fatal("Hash table error!\n"); ) \
|
afbc72 | 2001-09-06 | Fredrik Hübinette (Hubbe) | | PIKE_CONCAT(num_,DATA)++; \
\
|
7d63aa | 2001-11-08 | Fredrik Hübinette (Hubbe) | | if(( PIKE_CONCAT(num_,DATA)>>BLOCK_ALLOC_HSIZE_SHIFT ) >= \
|
afbc72 | 2001-09-06 | Fredrik Hübinette (Hubbe) | | PIKE_CONCAT(DATA,_hash_table_size)) \
{ \
PIKE_CONCAT(DATA,_rehash)(); \
hval=(size_t)ptr; \
hval%=PIKE_CONCAT(DATA,_hash_table_size); \
} \
\
p=BA_UL(PIKE_CONCAT(alloc_,DATA))(); \
p->data=ptr; \
p->BLOCK_ALLOC_NEXT=PIKE_CONCAT(DATA,_hash_table)[hval]; \
PIKE_CONCAT(DATA,_hash_table)[hval]=p; \
return p; \
|
1f5f6a | 2001-09-08 | Henrik Grubbström (Grubba) | | }
|