Branch: Tag:

2000-08-16

2000-08-16 10:50:42 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Fixed a few warnings.

Rev: src/builtin_functions.c:1.298
Rev: src/docode.c:1.79
Rev: src/encode.c:1.67
Rev: src/gc.c:1.122
Rev: src/las.c:1.191
Rev: src/module_support.c:1.36
Rev: src/peep.c:1.35
Rev: src/pike_memory.h:1.22
Rev: src/pike_types.c:1.135
Rev: src/pike_types.h:1.44
Rev: src/program.c:1.262

30:      #include "block_alloc.h"    - RCSID("$Id: gc.c,v 1.121 2000/08/13 15:12:55 grubba Exp $"); + RCSID("$Id: gc.c,v 1.122 2000/08/16 10:35:48 grubba Exp $");      /* Run garbage collect approximately every time    * 20 percent of all arrays, objects and programs is
599:    return ret;   }    + /* Avoid loss of precision warning. */ + #ifdef __ECL + static inline long SIZE_T_TO_LONG(size_t x) + { +  return DO_NOT_WARN((long)x); + } + #else /* !__ECL */ + #define SIZE_T_TO_LONG(x) ((long)(x)) + #endif /* __ECL */ +    void low_describe_something(void *a,    int t,    int indent,
684:    foo=1;    break;    } -  if(pos+1>=(long)p->num_program) +  if(pos+1>=(ptrdiff_t)p->num_program)    break;    }   #if 0
709:    {   #define FOO(NUMTYPE,TYPE,NAME) \    fprintf(stderr, "%*s* " #NAME " %p[%ld]\n", \ -  indent, "", p->NAME, (long)p->PIKE_CONCAT(num_,NAME)); +  indent, "", p->NAME, SIZE_T_TO_LONG(p->PIKE_CONCAT(num_,NAME)));   #include "program_areas.h"    }