Fixes in R_duplicateAsResizable.

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

Author: luke

src/main/memory.c

@@ -5051,11 +5051,9 @@ SEXP R_duplicateAsResizable(SEXP x)
 	error(_("ALTREP objects cannot be made resizable"));
     if (! isVector(x))
 	error(_("cannot make non-vector objects resizable"));
-    if (! GROWABLE_BIT_SET(x) && XTRUELENGTH(x) != 0)
-	error("XTRUELENGTH has been hijacked");
     SEXP val = duplicate(x);
-    SET_TRUELENGTH(x, XLENGTH(x));
-    SET_GROWABLE_BIT(x);
+    SET_TRUELENGTH(val, XLENGTH(val));
+    SET_GROWABLE_BIT(val);
     return val;
 }