pike.git/ src/ array.c

2000-04-12

2000-04-12 18:40:12 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 20513cc5f1201975917a7792d8ba022f92f1e63e (40 lines) (+24/-16) ^{[ Show | Annotate ]}
  Branch: 7.9

more debug in gc()

Rev: src/array.c:1.64
Rev: src/error.c:1.45
Rev: src/gc.c:1.54
Rev: src/gc.h:1.25
Rev: src/interpret.c:1.140
Rev: src/mapping.c:1.72
Rev: src/multiset.c:1.18
Rev: src/object.c:1.101
Rev: src/pike_memory.c:1.64
Rev: src/svalue.c:1.67

23:   #include "stuff.h"   #include "bignum.h"    - RCSID("$Id: array.c,v 1.63 2000/03/26 01:53:58 mast Exp $"); + RCSID("$Id: array.c,v 1.64 2000/04/12 18:40:12 hubbe Exp $");      struct array empty_array=   {
1799:    }   }    - void gc_check_all_arrays(void) + static void gc_check_array(struct array *a)   { -  struct array *a; -  a=&empty_array; -  do -  { - #ifdef PIKE_DEBUG -  if(d_flag > 1) array_check_type_field(a); - #endif +     if(a->type_field & BIT_COMPLEX)    {    TYPE_FIELD t;
1822:    else    a->type_field |= t;    } + }    -  + void gc_check_all_arrays(void) + { +  struct array *a; +  a=&empty_array; +  do +  { + #ifdef PIKE_DEBUG +  if(d_flag > 1) array_check_type_field(a); + #endif +  gc_check_array(a);    a=a->next;    } while (a != & empty_array);   }
1905:    }    else    { + #ifdef PIKE_DEBUG +  if(d_flag) gc_check_array(a); + #endif    a=a->next;    }    } while (a != & empty_array);