Branch: Tag:

2000-08-08

2000-08-08 10:52:38 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Fixed some more warnings.

Rev: src/modules/Gmp/mpz_glue.c:1.80
Rev: src/modules/Gz/zlibmod.c:1.30
Rev: src/modules/Image/encodings/bmp.c:1.26
Rev: src/modules/Image/encodings/gif.c:1.55
Rev: src/modules/Image/encodings/xwd.c:1.17

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: mpz_glue.c,v 1.79 2000/07/28 07:12:07 hubbe Exp $"); + RCSID("$Id: mpz_glue.c,v 1.80 2000/08/08 10:39:37 grubba Exp $");   #include "gmp_machine.h"      #if defined(HAVE_GMP2_GMP_H) && defined(HAVE_LIBGMP2)
136:    for (i = 0; i < digits->len; i++)    {    mpz_set_ui(digit, EXTRACT_UCHAR(digits->str + i)); -  mpz_mul_2exp(digit, digit, (digits->len - i - 1) * 8); +  mpz_mul_2exp(digit, digit, DO_NOT_WARN((digits->len - i - 1) * 8));    mpz_ior(tmp, tmp, digit);    }    mpz_clear(digit);
244:   static void mpzmod_get_float(INT32 args)   {    pop_n_elems(args); -  push_float((float)mpz_get_d(THIS)); +  push_float((FLOAT_TYPE)mpz_get_d(THIS));   }      static struct pike_string *low_get_digits(MP_INT *mpz, int base)   {    struct pike_string *s = 0; /* Make gcc happy. */ -  INT32 len; +  ptrdiff_t len;       if ( (base >= 2) && (base <= 36))    {
266:    }    else if (base == 256)    { -  unsigned INT32 i; +  size_t i;   #if 0    mpz_t tmp;   #endif
309:    mp_limb_t x=*(src++);    for (i=0; i<sizeof(mp_limb_t); i++)    { -  *(--dst)=x&0xff,x>>=8; +  *(--dst) = DO_NOT_WARN(x & 0xff); +  x >>= 8;    if (!--len)    break;   
484:    if (!flag_left)    for(i = 0; i < (INT_TYPE)sizeof(mp_limb_t); i++)    { -  *(--dst) = (neg ? ~x : x) & 0xff; +  *(--dst) = DO_NOT_WARN((neg ? ~x : x) & 0xff);    x >>= 8;    if(!--width)    break;
492:    else    for(i = 0; i < (INT_TYPE)sizeof(mp_limb_t); i++)    { -  *(dst++) = (neg ? ~x : x) & 0xff; +  *(dst++) = DO_NOT_WARN((neg ? ~x : x) & 0xff);    x >>= 8;    if(!--width)    break;
548:    pop_n_elems(args);       if (base == 256) -  push_int((mpz_sizeinbase(THIS, 2) + 7) / 8); +  push_int(DO_NOT_WARN((mpz_sizeinbase(THIS, 2) + 7) / 8));    else -  push_int(mpz_sizeinbase(THIS, base)); +  push_int(DO_NOT_WARN(mpz_sizeinbase(THIS, base)));   }      static void mpzmod_cast(INT32 args)
1372:       res=fast_clone_object(THIS_PROGRAM,0);    /* We add two to assure reasonably uniform randomness */ -  mpz_random(OBTOMPZ(res), mpz_size(THIS) + 2); +  mpz_random(OBTOMPZ(res), DO_NOT_WARN(mpz_size(THIS) + 2));    mpz_fdiv_r(OBTOMPZ(res), OBTOMPZ(res), THIS); /* modulo */    PUSH_REDUCED(res);   }