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

This commit is contained in:
Guido van Rossum 1992-09-03 20:25:30 +00:00
parent e270b432f3
commit 14b4adbd33
1 changed files with 21 additions and 0 deletions

View File

@ -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 */