pike.git/ src/ operators.c

2000-08-10

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

• 080b1af7ee1f7d8bbd0c55df6f036e4fc640650c (15 lines) (+8/-7) ^{[ Show | Annotate ]}
  Branch: 7.9

Fixed a few warnings.

Rev: src/array.c:1.80
Rev: src/array.h:1.25
Rev: src/object.c:1.142
Rev: src/opcodes.c:1.83
Rev: src/operators.c:1.98
Rev: src/program.c:1.257

6:   /**/   #include "global.h"   #include <math.h> - RCSID("$Id: operators.c,v 1.97 2000/08/10 09:51:51 per Exp $"); + RCSID("$Id: operators.c,v 1.98 2000/08/10 17:44:56 grubba Exp $");   #include "interpret.h"   #include "svalue.h"   #include "multiset.h"
1779:       for(last=sp[-2].u.string->len,e=0;e<size-1;e++)    { -  pos=sp[-2].u.string->len - (INT32)((e+1)*len); +  pos=sp[-2].u.string->len - (ptrdiff_t)((e+1)*len);    a->item[size-1-e].u.string=string_slice(sp[-2].u.string,    pos,    last-pos);
1792:    last-pos);    a->item[0].type=T_STRING;    }else{ -  size=(INT32)ceil( ((double)sp[-2].u.string->len) / len); +  size=(ptrdiff_t)ceil( ((double)sp[-2].u.string->len) / len);    a=allocate_array(size);       for(last=0,e=0;e<size-1;e++)
1868:       for(last=sp[-2].u.array->size,e=0;e<size-1;e++)    { -  pos=sp[-2].u.array->size - (INT32)((e+1)*len); +  pos=sp[-2].u.array->size - (ptrdiff_t)((e+1)*len);    a->item[size-1-e].u.array=friendly_slice_array(sp[-2].u.array,    pos,    last);
1880:    last);    a->item[0].type=T_ARRAY;    }else{ -  size=(INT32)ceil( ((double)sp[-2].u.array->size) / len); +  size = (ptrdiff_t)ceil( ((double)sp[-2].u.array->size) / len);    a=allocate_array(size);       for(last=0,e=0;e<size-1;e++)    { -  pos=(INT32)((e+1)*len); +  pos = (ptrdiff_t)((e+1)*len);    a->item[e].u.array=friendly_slice_array(sp[-2].u.array,    last,    pos);
2234:    case T_STRING:    {    struct pike_string *s; -  INT32 len, i; +  ptrdiff_t len, i;       if(sp[-1].u.string->size_shift) {    bad_arg_error("`~", sp-1, 1, 1, "string(0)", sp-1,