1998-12-16
1998-12-16 07:50:26 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
-
c72a4eab1eab562d28b23ebe1eff3570def083c3
(19 lines)
(+18/-1)
[
Show
| Annotate
]
Branch: 7.9
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)