Function comp_custom

other_src/lua/src/ltablib.cpp:245–256

static int comp_custom (lua_State *L, const TValue *a, const TValue *b) {
  int res;
  lua_pushvalue(L, 2);  /* comparison function, see sort() */
  lua_lock(L);
  setobj2s(L, L->top, a); L->top++;
  setobj2s(L, L->top, b); L->top++;
  lua_unlock(L);
  lua_call(L, 2, 1);
  res = lua_toboolean(L, -1);
  lua_pop(L, 1);
  return res;
}


static void mergesort (SortInfo *sortInfo, TValue* data, int size) {