1998-04-27
1998-04-27 10:01:56 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
-
8af390bc27ec05d1c6c90cc279ebd3c2ce239df7
(15 lines)
(+14/-1)
[
Show
| Annotate
]
Branch: 7.9
new efun: _locate_references()
Rev: src/builtin_functions.c:1.102
4:
||| See the files COPYING and DISCLAIMER for more information.
\*/
#include "global.h"
- RCSID("$Id: builtin_functions.c,v 1.101 1998/04/24 00:32:08 hubbe Exp $");
+ RCSID("$Id: builtin_functions.c,v 1.102 1998/04/27 10:01:56 hubbe Exp $");
#include "interpret.h"
#include "svalue.h"
#include "pike_macros.h"
2675:
}
#endif
+ #ifdef DEBUG
+ void f__locate_references(INT32 args)
+ {
+ if(args)
+ locate_references(sp[-args].u.refs);
+ pop_n_elems(args-1);
+ }
+ #endif
+
void init_builtin_efuns(void)
{
init_operators();
2786: Inside #if defined(DEBUG_MALLOC)
#ifdef DEBUG_MALLOC
add_efun("_reset_dmalloc",f__reset_dmalloc,"function(void:void)",OPT_SIDE_EFFECT);
#endif
+ #ifdef DEBUG
+ add_efun("_locate_references",f__locate_references,"function(1=mixed:1)",OPT_SIDE_EFFECT);
+ #endif
}