Commit 14b4adbd authored by Guido van Rossum's avatar Guido van Rossum

Add an optional interface to turn malloc debugging on and off.

parent e270b432
......@@ -124,8 +124,29 @@ sys_setprofile(self, args)
return None;
}
#ifdef USE_MALLOPT
/* Link with -lmalloc (or -lmpc) on an SGI */
#include <malloc.h>
static object *
sys_mdebug(self, args)
object *self;
object *args;
{
int flag;
if (!getargs(args, "i", &flag))
return NULL;
mallopt(M_DEBUG, flag);
INCREF(None);
return None;
}
#endif /* USE_MALLOPT */
static struct methodlist sys_methods[] = {
{"exit", sys_exit},
#ifdef USE_MALLOPT
{"mdebug", sys_mdebug},
#endif
{"setprofile", sys_setprofile},
{"settrace", sys_settrace},
{NULL, NULL} /* sentinel */
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment