pike.git / src / array.c

version» Context lines:

pike.git/src/array.c:16:   #include "pike_types.h"   #include "fsort.h"   #include "builtin_functions.h"   #include "pike_memory.h"   #include "gc.h"   #include "main.h"   #include "security.h"   #include "stuff.h"   #include "bignum.h"    - RCSID("$Id: array.c,v 1.87 2000/09/14 19:58:43 mast Exp $"); + RCSID("$Id: array.c,v 1.88 2000/09/17 19:53:52 grubba Exp $");      PMOD_EXPORT 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:1691:    {    ret=(struct array *)p->pointer_b;    add_ref(ret);    return ret;    }    }       ret=allocate_array_no_init(a->size,0);    doing.pointer_b=(void *)ret;    +  ret->flags = a->flags & ~ARRAY_LVALUE; +     copy_svalues_recursively_no_free(ITEM(ret),ITEM(a),a->size,&doing);       ret->type_field=a->type_field;    return ret;   }      PMOD_EXPORT void apply_array(struct array *a, INT32 args)   {    INT32 e;    struct array *ret;