hash_compare_semantic_type (const semantic_type *m1, const semantic_type *m2)
{
  /* Since names are unique, we can compare the pointers themselves.  */
  return UNIQSTR_EQ (m1->tag, m2->tag);
}
hash_compare_semantic_type (const semantic_type *m1, const semantic_type *m2)
{
   
  return UNIQSTR_EQ (m1->tag, m2->tag);
}