pike.git / src / array.c

version» Context lines:

pike.git/src/array.c:13:   #include "language.h"   #include "error.h"   #include "pike_types.h"   #include "fsort.h"   #include "builtin_functions.h"   #include "pike_memory.h"   #include "gc.h"   #include "main.h"   #include "security.h"    - RCSID("$Id: array.c,v 1.47 1999/04/12 05:27:46 hubbe Exp $"); + RCSID("$Id: array.c,v 1.48 1999/04/13 20:10:04 hubbe Exp $");      struct array empty_array=   {    1, /* Never free */   #ifdef PIKE_SECURITY    0,   #endif    &empty_array, /* Next */    &empty_array, /* previous (circular) */    0, /* Size = 0 */
pike.git/src/array.c:1603:      void apply_array(struct array *a, INT32 args)   {    INT32 e;    struct array *ret;    INT32 argp;       argp=sp-args - evaluator_stack;       check_stack(a->size + args + 1); -  +  check_array_for_destruct(a);    for(e=0;e<a->size;e++)    {    assign_svalues_no_free(sp,evaluator_stack+argp,args,BIT_MIXED);    sp+=args;    apply_svalue(ITEM(a)+e,args);    }    ret=aggregate_array(a->size);    pop_n_elems(args);    push_array(ret);   }