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