Branch: Tag:

2000-08-10

2000-08-10 09:20:00 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Fixed a few warnings.

Rev: src/block_alloc.h:1.22
Rev: src/cpp.c:1.73
Rev: src/cyclic.c:1.5
Rev: src/docode.c:1.77
Rev: src/dynamic_buffer.c:1.12
Rev: src/dynamic_load.c:1.42
Rev: src/encode.c:1.63
Rev: src/fsort_template.h:1.8
Rev: src/pike_macros.h:1.19
Rev: src/stuff.c:1.12
Rev: src/stuff.h:1.8

1: - /* $Id: block_alloc.h,v 1.21 2000/05/16 18:32:34 hubbe Exp $ */ + /* $Id: block_alloc.h,v 1.22 2000/08/10 09:12:39 grubba Exp $ */   #undef PRE_INIT_BLOCK   #undef INIT_BLOCK   #undef EXIT_BLOCK
113:   BLOCK_ALLOC(DATA,BSIZE) \    \   struct DATA **PIKE_CONCAT(DATA,_hash_table)=0; \ - int PIKE_CONCAT(DATA,_hash_table_size)=0; \ - static int PIKE_CONCAT(num_,DATA)=0; \ + ptrdiff_t PIKE_CONCAT(DATA,_hash_table_size)=0; \ + static ptrdiff_t PIKE_CONCAT(num_,DATA)=0; \    \   inline struct DATA * \ -  PIKE_CONCAT(really_low_find_,DATA)(void *ptr, int hval) \ +  PIKE_CONCAT(really_low_find_,DATA)(void *ptr, ptrdiff_t hval) \   { \    struct DATA *p,**pp; \    p=PIKE_CONCAT(DATA,_hash_table)[hval]; \
139:    \   struct DATA *PIKE_CONCAT(find_,DATA)(void *ptr) \   { \ -  unsigned int hval=(long)ptr; \ +  size_t hval = (size_t)ptr; \    hval%=PIKE_CONCAT(DATA,_hash_table_size); \    return PIKE_CONCAT(really_low_find_,DATA)(ptr, hval); \   } \
150:    /* Time to re-hash */ \    struct DATA **old_hash= PIKE_CONCAT(DATA,_hash_table); \    struct DATA *p; \ -  int hval; \ -  int e=PIKE_CONCAT(DATA,_hash_table_size); \ +  ptrdiff_t hval; \ +  ptrdiff_t e=PIKE_CONCAT(DATA,_hash_table_size); \    \    PIKE_CONCAT(DATA,_hash_table_size)*=2; \    PIKE_CONCAT(DATA,_hash_table_size)++; \
166:    while((p=old_hash[e])) \    { \    old_hash[e]=p->BLOCK_ALLOC_NEXT; \ -  hval=(long)(p-> data); \ +  hval=(ptrdiff_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; \
180:   } \    \    \ - struct DATA *PIKE_CONCAT(make_,DATA)(void *ptr, int hval) \ + struct DATA *PIKE_CONCAT(make_,DATA)(void *ptr, ptrdiff_t hval) \   { \    struct DATA *p; \    \
192:    PIKE_CONCAT(DATA,_hash_table_size)) \    { \    PIKE_CONCAT(DATA,_rehash)(); \ -  hval=(long)ptr; \ +  hval=(ptrdiff_t)ptr; \    hval%=PIKE_CONCAT(DATA,_hash_table_size); \    } \    \
206:   struct DATA *PIKE_CONCAT(get_,DATA)(void *ptr) \   { \    struct DATA *p; \ -  int hval=(long)ptr; \ +  ptrdiff_t hval=(ptrdiff_t)ptr; \    hval%=PIKE_CONCAT(DATA,_hash_table_size); \    if((p=PIKE_CONCAT(really_low_find_,DATA)(ptr, hval))) \    return p; \
217:   int PIKE_CONCAT3(check_,DATA,_semafore)(void *ptr) \   { \    struct DATA *p; \ -  int hval=(long)ptr; \ +  ptrdiff_t hval=(ptrdiff_t)ptr; \    hval%=PIKE_CONCAT(DATA,_hash_table_size); \    if((p=PIKE_CONCAT(really_low_find_,DATA)(ptr, hval))) \    return 0; \
229:   int PIKE_CONCAT(remove_,DATA)(void *ptr) \   { \    struct DATA *p; \ -  int hval=(long)ptr; \ +  ptrdiff_t hval=(ptrdiff_t)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))) \
246:   void PIKE_CONCAT3(init_,DATA,_hash)(void) \   { \    extern INT32 hashprimes[32]; \ -  extern int my_log2(unsigned INT32 x); \ +  extern ptrdiff_t my_log2(size_t x); \    PIKE_CONCAT(DATA,_hash_table_size)=hashprimes[my_log2(BSIZE)]; \    \    PIKE_CONCAT(DATA,_hash_table)=(struct DATA **) \