An copy from sort.c