Add an optional interface to turn malloc debugging on and off.
diff --git a/Python/sysmodule.c b/Python/sysmodule.c
index 3a6516f..a83ec46 100644
--- a/Python/sysmodule.c
+++ b/Python/sysmodule.c
@@ -124,8 +124,29 @@
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 */