diff Mac/Modules/macmodule.c @ 2179:8da03decef59 legacy-trunk

More Pstring() stuff and some cosmetics
author Jack Jansen <jack.jansen@cwi.nl>
date Wed, 18 Jan 1995 13:58:04 +0000
parents b4d982c648bb
children bbb56dc3b526
line wrap: on
line diff
--- a/Mac/Modules/macmodule.c	Wed Jan 18 13:56:20 1995 +0000
+++ b/Mac/Modules/macmodule.c	Wed Jan 18 13:58:04 1995 +0000
@@ -447,6 +447,18 @@
 }
 #endif /* !__MWERKS__ */
 
+#ifdef MALLOC_DEBUG
+static object *
+mac_mstats(self, args)
+	object*self;
+	object *args;
+{
+	mstats("python");
+	INCREF(None);
+	return None;
+}
+#endif MALLOC_DEBUG
+
 static struct methodlist mac_methods[] = {
 	{"chdir",	mac_chdir},
 #ifndef __MWERKS__
@@ -477,6 +489,9 @@
 #ifndef __MWERKS__
 	{"write",	mac_write},
 #endif
+#ifdef MALLOC_DEBUG
+	{"mstats",	mac_mstats},
+#endif
 
 	{NULL,		NULL}		 /* Sentinel */
 };
@@ -485,7 +500,7 @@
 void
 initmac()
 {
-	object *m, *d, *v;
+	object *m, *d;
 	
 	m = initmodule("mac", mac_methods);
 	d = getmoduledict(m);