pike.git/ src/ stralloc.c

1997-01-28

1997-01-28 03:28:45 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 93673591be17905114da91f6e051ad8f07733821 (27 lines) (+27/-0) ^{[ Show | Annotate ]}
  Branch: 7.9

more debug added

Rev: src/modules/files/file.c:1.24
Rev: src/program.c:1.16
Rev: src/stralloc.c:1.9
Rev: src/stralloc.h:1.6
Rev: src/svalue.c:1.5

201:      void really_free_string(struct pike_string *s)   { + #ifdef DEBUG +  extern int d_flag; +  if(d_flag > 2) +  { +  if(s->next == (struct pike_string *)-1) +  fatal("Freeing shared string again!\n"); +     unlink_pike_string(s); -  +  s->next=(struct pike_string *)-1; +  return; +  } + #endif +  unlink_pike_string(s);    free((char *)s);   }   
548:    num[0]=num_;    size[0]=size_;   } +  + #ifdef GC2 +  + void gc_mark_all_strings() + { +  unsigned INT32 e; +  if(!base_table) return; +  for(e=0;e<htable_size;e++) +  { +  struct pike_string *p; +  for(p=base_table[e];p;p=p->next) gc_is_referenced(p); +  } + } + #endif