pike.git / src / array.c

version» Context lines:

pike.git/src/array.c:12:   #include "interpret.h"   #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"    - RCSID("$Id: array.c,v 1.36 1998/04/28 23:54:21 grubba Exp $"); + RCSID("$Id: array.c,v 1.37 1998/05/12 23:49:52 hubbe Exp $");      struct array empty_array=   {    1, /* Never free */    &empty_array, /* Next */    &empty_array, /* previous (circular) */    0, /* Size = 0 */    0, /* malloced Size = 0 */    0, /* no types */    0, /* no flags */
pike.git/src/array.c:833:    if(v->flags & ARRAY_LVALUE)    {    v->type_field=BIT_MIXED;    return;    }       for(e=0; e<v->size; e++) t |= 1 << ITEM(v)[e].type;      #ifdef DEBUG    if(t & ~(v->type_field)) +  { +  describe(v);    fatal("Type field out of order!\n"); -  +  }   #endif    v->type_field = t;   }      #ifdef DEBUG   /* Maybe I should have a 'clean' flag for this computation */   void array_check_type_field(struct array *v)   {    int e;    TYPE_FIELD t;
pike.git/src/array.c:859: Inside #if defined(DEBUG)
      for(e=0; e<v->size; e++)    {    if(ITEM(v)[e].type > MAX_TYPE)    fatal("Type is out of range.\n");       t |= 1 << ITEM(v)[e].type;    }       if(t & ~(v->type_field)) +  { +  describe(v);    fatal("Type field out of order!\n");    } -  + }   #endif      struct array *compact_array(struct array *v) { return v; }      /*    * Get a pointer to the 'union anything' specified IF it is of the specified    * type. The 'union anything' may be changed, but not the type.    */   union anything *low_array_get_item_ptr(struct array *a,    INT32 ind,
pike.git/src/array.c:1339:    return a;   }      struct array *explode(struct pike_string *str,    struct pike_string *del)   {    INT32 e;    struct array *ret;    char *s, *end, *tmp;    + #if 0    if(!str->len)    {    return allocate_array_no_init(0,0);    } -  + #endif    if(!del->len)    {    ret=allocate_array_no_init(str->len,0);    for(e=0;e<str->len;e++)    {    ITEM(ret)[e].type=T_STRING;    ITEM(ret)[e].u.string=make_shared_binary_string(str->str+e,1);    }    }else{    struct mem_searcher searcher;
pike.git/src/array.c:1692:    *num_=num;    *size_=size;   }      struct array *explode_array(struct array *a, struct array *b)   {    INT32 e,d,q,start;    struct array *tmp;       q=start=0; + #if 0    if(!a->size)    {    return allocate_array_no_init(0,0);    } -  + #endif    if(b->size)    {    for(e=0;e<=a->size - b->size;e++)    {    for(d=0;d<b->size;d++)    {    if(!is_eq(ITEM(a)+(e+d),ITEM(b)+d))    break;    }    if(d==b->size)