sk_push(names_hash,(char *)strcmp); sk_push(names_cmp,(char *)lh_strhash);
sk_push(names_hash,tmp_strcmp.char_p); sk_push(names_cmp,tmp_lh_strhash.char_p);
int OBJ_NAME_new_index(unsigned long (*hash_func)(), int (*cmp_func)(),	     void (*free_func)())	{	int ret;	int i;	if (names_free == NULL)		{		MemCheck_off();		names_hash=sk_new_null();		names_cmp=sk_new_null();		names_free=sk_new_null();		MemCheck_on();		}	if ((names_free == NULL) || (names_hash == NULL) || (names_cmp == NULL))		{		/* ERROR */		return(0);		}	ret=names_type_num;	names_type_num++;	for (i=sk_num(names_free); i<names_type_num; i++)		{		MemCheck_off();		sk_push(names_hash,(char *)strcmp);		sk_push(names_cmp,(char *)lh_strhash);		sk_push(names_free,NULL);		MemCheck_on();		}	if (hash_func != NULL)		sk_set(names_hash,ret,(char *)hash_func);	if (cmp_func != NULL)		sk_set(names_cmp,ret,(char *)cmp_func);	if (free_func != NULL)		sk_set(names_free,ret,(char *)free_func);	return(ret);	}