Branch: Tag:

2005-05-19

2005-05-19 22:35:40 by Martin Stjernholm <mast@lysator.liu.se>

Fixed various type errors for 64 bit architectures and other warnings. (Most
are in harmless debug messages, but anyway..)

Rev: src/array.c:1.181
Rev: src/backend.cmod:1.175
Rev: src/builtin_functions.c:1.599
Rev: src/code/bytecode.h:1.11
Rev: src/encode.c:1.228
Rev: src/gc.c:1.270
Rev: src/interpret_functions.h:1.184
Rev: src/las.c:1.364
Rev: src/modules/Image/image.c:1.222
Rev: src/modules/Parser/html.c:1.177
Rev: src/modules/_Charset/iso2022.c:1.38
Rev: src/modules/files/file.c:1.351
Rev: src/modules/files/sendfile.c:1.72
Rev: src/modules/spider/xml.c:1.75
Rev: src/modules/system/memory.c:1.34
Rev: src/object.c:1.267
Rev: src/peep.c:1.106
Rev: src/pike_types.c:1.247
Rev: src/post_modules/Shuffler/a_source_system_memory.c:1.12
Rev: src/post_modules/Shuffler/b_source_normal_file.c:1.14
Rev: src/program.c:1.588
Rev: src/rbtree.c:1.25
Rev: src/threads.c:1.244

2:   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: array.c,v 1.180 2005/04/06 18:43:39 grubba Exp $ + || $Id: array.c,v 1.181 2005/05/19 22:35:23 mast Exp $   */      #include "global.h"
292:    if (a->size) {    index_error(0,0,0,&tmp,ind,    "Index %"PRINTPIKEINT"d is out of array range " -  "%"PRINTPTRDIFFT"d..%"PRINTPTRDIFFT"d.\n", -  p, -a->size, a->size-1); +  "%d..%d.\n", p, -a->size, a->size-1);    } else {    index_error(0,0,0,&tmp,ind,    "Attempt to index the empty array with %"PRINTPIKEINT"d.\n", p);
345:    if(i<0 || i>=a->size) {    if (a->size) {    Pike_error("Index %"PRINTPIKEINT"d is out of array range " -  "%"PRINTPTRDIFFT"d..%"PRINTPTRDIFFT"d.\n", -  p, -a->size, a->size-1); +  "%d..%d.\n", p, -a->size, a->size-1);    } else {    Pike_error("Attempt to index the empty array with %"PRINTPIKEINT"d.\n", p);    }
1337:    if(i<0 || i>=a->size) {    if (a->size) {    Pike_error("Index %"PRINTPIKEINT"d is out of array range " -  "%"PRINTPTRDIFFT"d..%"PRINTPTRDIFFT"d.\n", -  p, -a->size, a->size-1); +  "%d..%d.\n", p, -a->size, a->size-1);    } else {    Pike_error("Attempt to index the empty array with %"PRINTPIKEINT"d.\n", p);    }
2236:    check_stack(120 + args + 1);       /* FIXME: Ought to use a better key on the arguments below. */ -  if (!(cycl = (struct array *)BEGIN_CYCLIC(a, args))) { +  if (!(cycl = (struct array *)BEGIN_CYCLIC(a, (ptrdiff_t) args))) {    BEGIN_AGGREGATE_ARRAY(a->size) {    SET_CYCLIC_RET(Pike_sp[-1].u.array);    for (e=0;e<a->size;e++) {