1999-03-17
1999-03-17 21:49:24 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
-
2eeba979114f5c19a6cf4800f0279a3e4b90d00e
(10 lines)
(+9/-1)
[
Show
| Annotate
]
Branch: 7.9
more debug!
Rev: src/builtin_functions.c:1.155
Rev: src/gc.c:1.41
5:
\*/
/**/
#include "global.h"
- RCSID("$Id: builtin_functions.c,v 1.154 1999/03/10 02:41:15 hubbe Exp $");
+ RCSID("$Id: builtin_functions.c,v 1.155 1999/03/17 21:49:22 hubbe Exp $");
#include "interpret.h"
#include "svalue.h"
#include "pike_macros.h"
3723: Inside #if defined(PIKE_DEBUG)
locate_references(sp[-args].u.refs);
pop_n_elems(args-1);
}
+
+ void f__describe(INT32 args)
+ {
+ debug_describe_svalue(sp-1);
+ }
+
#endif
void f_map_array(INT32 args)
4043: Inside #if defined(PIKE_DEBUG)
/* function(1=mixed:1) */
ADD_EFUN("_locate_references",f__locate_references,tFunc(tSetvar(1,tMix),tVar(1)),OPT_SIDE_EFFECT);
+ ADD_EFUN("_describe",f__describe,tFunc(tSetvar(1,tMix),tVar(1)),OPT_SIDE_EFFECT);
#endif
}