diff --git a/src/main/subset.c b/src/main/subset.c index a9371f3fbfc..742d2b88ac9 100644 --- a/src/main/subset.c +++ b/src/main/subset.c @@ -179,14 +179,14 @@ attribute_hidden SEXP ExtractSubset(SEXP x, SEXP indx, SEXP call) break; case VECSXP: case EXPRSXP: - /* Is `VECTOR_ELT_FIX_NAMED()` still needed? If not, split out VECSXP */ + /* Is `VECTOR_ELT_FIX_NAMED()` still needed? If not, split out VECSXP */ /* case and use `DATAPTR_OR_NULL()` there too. Currently it never */ /* takes the `px[ii]` path - DV. */ - EXTRACT_SUBSET_LOOP(const SEXP *px = NULL, + EXTRACT_SUBSET_LOOP(const SEXP *px = NULL, SET_VECTOR_ELT(result, i, px[ii]), SET_VECTOR_ELT(result, i, VECTOR_ELT_FIX_NAMED(x, ii)), SET_VECTOR_ELT(result, i, R_NilValue)); - break; + break; case RAWSXP: EXTRACT_SUBSET_LOOP(const Rbyte* px = (const Rbyte*) DATAPTR_OR_NULL(x), RAW0(result)[i] = px[ii],