pike.git / src / array.c

version» Context lines:

pike.git/src/array.c:1660:    my_strcat("({ })");    return;    }       doing.next=p;    doing.pointer_a=(void *)a;    for(e=0;p;e++,p=p->next)    {    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');    for(e=2; e<indent; e++) my_putchar(' ');    my_strcat("})");   }      struct array *aggregate_array(INT32 args, TYPE_T type)   {    struct array *a;
pike.git/src/array.c:1849:    a->size,&doing);    }    return ret;   }      void apply_array(struct array *a, INT32 args)   {    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)    {    for(e=0;e<a->size;e++)    {    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++)    {    array_index_no_free(sp++,a,e);    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);   }      struct array *reverse_array(struct array *a)   {    INT32 e;    struct array *ret;    ret=allocate_array_no_init(a->size,0,a->array_type);    if(a->array_type == T_MIXED)