duplicateAsResizable: refuse ALTREP objects

aitap · aitap · commit af91fe934d75 · 2025-12-08T17:24:42.000+03:00
diff --git a/src/utils.c b/src/utils.c
@@ -668,6 +668,7 @@ SEXP R_allocResizableVector_(SEXPTYPE type, R_xlen_t maxlen) {
 }
 
 SEXP R_duplicateAsResizable_(SEXP x) {
+  if (ALTREP(x)) internal_error(__func__, "Cannot duplicate an ALTREP object as resizable"); // # nocov
   SEXP ret = duplicate(x);
   SET_TRUELENGTH(ret, xlength(ret));
   SET_GROWABLE_BIT(ret);

Original file line number	Diff line number	Diff line change
`@@ -668,6 +668,7 @@ SEXP R_allocResizableVector_(SEXPTYPE type, R_xlen_t maxlen) {`
`668`	`668`	`}`
`669`	`669`
`670`	`670`	`SEXP R_duplicateAsResizable_(SEXP x) {`
	`671`	`+ if (ALTREP(x)) internal_error(__func__, "Cannot duplicate an ALTREP object as resizable"); // # nocov`
`671`	`672`	`SEXP ret = duplicate(x);`
`672`	`673`	`SET_TRUELENGTH(ret, xlength(ret));`
`673`	`674`	`SET_GROWABLE_BIT(ret);`