Branch: Tag:

1998-12-16

1998-12-16 07:50:26 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

XML parser improved

Rev: src/builtin_functions.c:1.141
Rev: src/builtin_functions.h:1.8
Rev: src/gc.c:1.40
Rev: src/gc.h:1.21
Rev: src/modules/spider/xml.c:1.2
Rev: src/opcodes.c:1.33

25:   #include "main.h"   #include <math.h>    - RCSID("$Id: gc.c,v 1.39 1998/11/22 11:02:48 hubbe Exp $"); + RCSID("$Id: gc.c,v 1.40 1998/12/16 07:49:35 hubbe Exp $");      /* Run garbage collect approximate every time we have    * 20 percent of all arrays, objects and programs is
390: Inside #if defined(PIKE_DEBUG)
   describe_something(x, attempt_to_identify(x),1);   }    + void debug_describe_svalue(struct svalue *s) + { +  fprintf(stderr,"Svalue at %p is:\n",s); +  switch(s->type) +  { +  case T_INT: +  fprintf(stderr," %ld\n",(long)s->u.integer); +  break; +  +  case T_FLOAT: +  fprintf(stderr," %f\n",s->u.float_number); +  break; +  } +  describe_something(s->u.refs,s->type,1); + } +    #endif      INT32 gc_check(void *a)