Branch: Tag:

2000-08-24

2000-08-24 17:11:16 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Fixed a few warnings.

Rev: src/builtin_functions.c:1.301
Rev: src/modules/Gmp/mpz_glue.c:1.82
Rev: src/object.c:1.146

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: mpz_glue.c,v 1.81 2000/08/10 09:51:52 per Exp $"); + RCSID("$Id: mpz_glue.c,v 1.82 2000/08/24 17:05:38 grubba Exp $");   #include "gmp_machine.h"      #if defined(HAVE_GMP2_GMP_H) && defined(HAVE_LIBGMP2)
902:      static void mpzmod_rsub(INT32 args)   { -  struct object *res; +  struct object *res = NULL;    MP_INT *a;       if(args!=1)
946:   static void mpzmod_rdiv(INT32 args)   {    MP_INT *a; -  struct object *res; +  struct object *res = NULL;    if(!mpz_sgn(THIS))    error("Division by zero.\n");   
982:   static void mpzmod_rmod(INT32 args)   {    MP_INT *a; -  struct object *res; +  struct object *res = NULL;    if(!mpz_sgn(THIS))    error("Modulo by zero.\n");   
1210:      static void mpzmod_lsh(INT32 args)   { -  struct object *res; +  struct object *res = NULL;    if (args != 1)    error("Wrong number of arguments to Gmp.mpz->`<<.\n");    ref_push_string(int_type_string);
1226:      static void mpzmod_rsh(INT32 args)   { -  struct object *res; +  struct object *res = NULL;    if (args != 1)    error("Wrong number of arguments to Gmp.mpz->`>>.\n");    ref_push_string(int_type_string);
1242:      static void mpzmod_rlsh(INT32 args)   { -  struct object *res; +  struct object *res = NULL;    INT32 i;    if (args != 1)    error("Wrong number of arguments to Gmp.mpz->``<<.\n");
1259:      static void mpzmod_rrsh(INT32 args)   { -  struct object *res; +  struct object *res = NULL;    INT32 i;    if (args != 1)    error("Wrong number of arguments to Gmp.mpz->``>>.\n");
1275:      static void mpzmod_powm(INT32 args)   { -  struct object *res; +  struct object *res = NULL;    MP_INT *n;       if(args != 2)
1292:      static void mpzmod_pow(INT32 args)   { -  struct object *res; +  struct object *res = NULL;       if (args != 1)    error("Gmp.mpz->pow: Wrong number of arguments.\n");
1337:      static void gmp_pow(INT32 args)   { -  struct object *res; +  struct object *res = NULL;    if (args != 2)    error("Gmp.pow: Wrong number of arguments");    if ( (sp[-2].type != T_INT) || (sp[-2].u.integer < 0)
1351:      static void gmp_fac(INT32 args)   { -  struct object *res; +  struct object *res = NULL;    if (args != 1)    error("Gmp.fac: Wrong number of arguments.\n");    if (sp[-1].type != T_INT)