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.46 1999/04/12 02:24:10 hubbe Exp $"); + RCSID("$Id: array.c,v 1.47 1999/04/12 05:27:46 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:1760:    if(a->flags & ARRAY_WEAK_SHRINK)    {    int d=0;    for(e=0;e<a->size;e++)    {    if(a->item[e].type <= MAX_COMPLEX && gc_do_free(a->item[e].u.refs))    free_svalue(a->item+e);    else    a->item[d++]=a->item[e];    } -  a->size=e; +  a->size=d;    }else{    for(e=0;e<a->size;e++)    {    if(a->item[e].type <= MAX_COMPLEX && gc_do_free(a->item[e].u.refs))    {    free_svalue(a->item+e);    a->item[e].type=T_INT;    a->item[e].u.integer=0;    a->item[e].subtype=NUMBER_DESTRUCTED;    a->type_field |= BIT_INT;