let new_base_block mi =
  {
    bb_block = [];
    bb_link = mi;
  }