/* free half of the CallInfo structures not in use by a thread, keeping the first one.  */
void luaE_shrinkCI(lua_State *L)
/* free half of the CallInfo structures not in use by a thread, keeping the first one.  */
void luaE_shrinkCI(lua_State *L)
{
    CallInfo *next2 = next->next;
    ci->next = next2;
    L->nci--;
    luaM_free(L, next);
    if (next2 == NULL)
      break;
    else {
      next2->previous = ci;
      ci = next2;
    }
  }
}