Branch: Tag:

2000-08-17

2000-08-17 19:10:05 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Fixed a few warnings.

Rev: src/backend.c:1.55
Rev: src/compilation.h:1.19
Rev: src/dynamic_load.c:1.43
Rev: src/encode.c:1.68
Rev: src/gc.c:1.124
Rev: src/interpret.c:1.165
Rev: src/interpret.h:1.64
Rev: src/module_support.c:1.37
Rev: src/modules/Parser/parser.c:1.10
Rev: src/modules/call_out/call_out.c:1.39
Rev: src/modules/spider/xml.c:1.26
Rev: src/modules/sprintf/sprintf.c:1.73
Rev: src/opcodes.c:1.90
Rev: src/operators.c:1.100
Rev: src/pike_types.c:1.136
Rev: src/program.c:1.263

26:   #include "bignum.h"   #include "operators.h"    - RCSID("$Id: opcodes.c,v 1.89 2000/08/15 14:15:20 grubba Exp $"); + RCSID("$Id: opcodes.c,v 1.90 2000/08/17 19:06:30 grubba Exp $");      void index_no_free(struct svalue *to,struct svalue *what,struct svalue *ind)   {
88:    if(what->u.string->len == 0)    error("Attempt to index the empty string with %d.\n", i);    else -  error("Index %d is out of string range 0 - %d.\n", -  i, what->u.string->len-1); +  error("Index %d is out of string range 0 - %ld.\n", +  i, PTRDIFF_T_TO_LONG(what->u.string->len - 1));    } else    i=index_shared_string(what->u.string,i);    to->type=T_INT;
1284:    case 'F': \    if(field_length == -1) field_length = 4; \    if(field_length != 4 && field_length != 8) \ -  error("Invalid IEEE width %d in sscanf format string.\n", \ -  field_length); \ +  error("Invalid IEEE width %ld in sscanf format string.\n", \ +  PTRDIFF_T_TO_LONG(field_length)); \    if(eye+field_length > input_len) \    { \    chars_matched[0]=eye; \