pike.git/ src/ array.c

Branch: Tag:

1995-08-17

1995-08-17 09:35:27 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

64 bittar och b{ttre bsd fd tjafs..

Rev: lib/simulate.lpc:1.2
Rev: src/BUGS:1.2
Rev: src/Makefile.in:1.3
Rev: src/array.c:1.2
Rev: src/backend.c:1.2
Rev: src/configure.in:1.3
Rev: src/docode.c:1.2
Rev: src/interpret.c:1.2
Rev: src/language.y:1.2
Rev: src/las.h:1.2
Rev: src/lex.c:1.2
Rev: src/list.c:1.2
Rev: src/macros.h:1.2
Rev: src/main.c:1.4
Rev: src/mapping.c:1.2
Rev: src/modules/files/file.c:1.2
Rev: src/modules/files/socket.c:1.2
Rev: src/modules/regexp/regexp.c:1.2
Rev: src/opcodes.c:1.2
Rev: src/port.c:1.3
Rev: src/port.h:1.3
Rev: src/program.c:1.2
Rev: src/rusage.c:1.2
Rev: src/stralloc.c:1.2
Rev: src/stralloc.h:1.2
Rev: src/svalue.c:1.2

1667:    {    if(p->pointer_a == (void *)a)    { -  sprintf(buf,"@%ld",e); +  sprintf(buf,"@%ld",(long)e);    my_strcat(buf);    return;    }    }    -  sprintf(buf,"({ /* %ld elements */\n",a->size); +  sprintf(buf,"({ /* %ld elements */\n",(long)a->size);    my_strcat(buf);    describe_array_low(a,&doing,indent);    my_putchar('\n');
1856:    struct svalue *argp;    INT32 e;    struct array *ret; -  ret=allocate_array_no_init(a->size,0,T_MIXED); -  ret->type_field=BIT_MIXED; +     argp=sp-args;    if(a->array_type == T_MIXED)    {
1866:    assign_svalues_no_free(sp,argp,args);    sp+=args;    apply_svalue(ITEM(a)+e,args); -  ITEM(ret)[e]=sp[-1]; -  sp--; +     }    }else{    for(e=0;e<a->size;e++)
1876:    assign_svalues_no_free(sp,argp,args);    sp+=args;    f_call_function(args+1); -  ITEM(ret)[e]=sp[-1]; -  sp--; +     }    } -  +  ret=aggregate_array(a->size,T_MIXED);    pop_n_elems(args);    push_array(ret);   }