follow up to r87432

git-svn-id: https://svn.r-project.org/R/trunk@87462 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: ripley

src/main/qsort.c

@@ -100,11 +100,14 @@ attribute_hidden SEXP do_qsort(SEXP call, SEXP op, SEXP args, SEXP rho)
 	setAttrib(ans, R_NamesSymbol, ansnames);
 	UNPROTECT(4);
 	return ans;
-    } else {
-	if(x_int)
-	    R_qsort_int(ivx, 1, n);
-	else
-	    R_qsort(vx, 1, n);
+    } else { // not indx_ret
+	// do not need to sort 0-length array
+	if( n > 0) {
+	    if(x_int)
+		R_qsort_int(ivx, 1, n);
+	    else
+		R_qsort(vx, 1, n);
+	}
 
 	UNPROTECT(1);
 	return sx;

tests/reg-tests-1e.R

@@ -1669,6 +1669,14 @@ stopifnot(identical(gen, isGeneric("+", getName = TRUE)), # the latter always wo
           identical(gen, structure("+", package = "base")),
           isGeneric("+"), isGeneric("+", fdef = `+`))
 
+## These gave array-accss errors and perhaps segfaults in R <= 4.4.2
+ix <- integer(0)
+sort.int(ix, method = "quick")
+sort.int(ix, method = "quick", index.return = TRUE)
+x <- double(0)
+sort.int(x, method = "quick")
+sort.int(x, method = "quick", index.return = TRUE)
+
 
 
 ## keep at end