free_type
free_type (s, m->type, FALSE);
free_type(n, t->subtype, FALSE);
free_type (name, t->subtype, preserve);
free_type ("data", s->type, preserve);
free_type (name, t->symbol->type, preserve);
static int free_type;
if (free_type < 0 || free_type == onp->type)
free_type = type;