void ffetype_set_kind (ffetype base_type, int kind, ffetype type)
ffetype_set_kind (ffetype base_type, int kind, ffetype type)
void ffetype_set_kind (ffetype base_type, int kind, ffetype type){  if (base_type->kinds_ == NULL)    {      int i;      base_type->kinds_	= (ffetype_indexes_) malloc_new_kp (malloc_pool_image (),					    "ffetype_indexes_[kinds]",					    sizeof (*(base_type->kinds_)));      for (i = 0; ((size_t) i) < ARRAY_SIZE (base_type->kinds_->type_); ++i)	base_type->kinds_->type_[i] = NULL;    }  assert (base_type->kinds_->type_[kind] == NULL);  base_type->kinds_->type_[kind] = type;}