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.71 2000/05/11 14:09:44 grubba Exp $"); + RCSID("$Id: array.c,v 1.72 2000/05/24 02:20:43 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:454:    check_destructed(s);      #ifdef PIKE_DEBUG    if(d_flag > 1) array_check_type_field(v);   #endif    /* Why search for something that is not there?    * however, we must explicitly check for searches    * for destructed objects/functions    */    if((v->type_field & (1 << s->type)) || -  (IS_ZERO(s) && (v->type_field & (BIT_FUNCTION|BIT_OBJECT)))) +  (IS_ZERO(s) && (v->type_field & (BIT_FUNCTION|BIT_OBJECT))) || +  ( (v->type_field | (1<<s->type)) & BIT_OBJECT )) /* for overloading */    {    if(start)    {    for(e=start;e<v->size;e++)    if(is_eq(ITEM(v)+e,s)) return e;    }else{    TYPE_FIELD t=0;    for(e=0;e<v->size;e++)    {    if(is_eq(ITEM(v)+e,s)) return e;