39	39	}
			40	40
			41	41	static void mm_free_func (void *cookie, void *ptr) {
			42		return mm_free ((MM*)cookie, ptr);
				42	mm_free ((MM*)cookie, ptr);
			43	43	}
			44	44
			45	45	/*
			158	158	static int ns_rwlock (ClientData ignored, Tcl_Interp *interp,
			159	159	int argc, char **argv)
			160	160	{
			161		int lock_idx, cmd;
				161	int lock_idx, cmd = 0;
			162	162	int badargs = 0;
			163	163	char *endptr;
			164	164
			365	365	mm_hash_elt *elt;
			366	366	int created;
			367	367	char *arg = NULL;
			368		int rc;
				368	int rc = 0;
			369	369
			370	370	/* Do some basic arg checks */
			371	371
			485	485	static int
			486	486	nsv_array(ClientData dummy, Tcl_Interp *interp, int argc, char **argv)
			487	487	{
			488		char *pattern, **largv;
				488	char *pattern = 0, **largv;
			489	489	int i, created_p, cmd, largc, status = TCL_OK;
			490	490	mm_hash_table *hash;
			491	491	mm_hash_elt *elt;
			590	590	case 'g':
			591	591	case 'n':
			592	592	mm_hash_iter_init(hash, &search);
			593		while (elt = mm_hash_iter_next(hash, &search)) {
				593	while ((elt = mm_hash_iter_next(hash, &search))) {
			594	594	if (pattern == NULL || Tcl_StringMatch(elt->key, pattern)) {
			595	595	Tcl_AppendElement(interp, elt->key);
			596	596	if (cmd == 'g') {