reset truelength definition

Author: ben-schwen

src/assign.c

@@ -320,7 +320,7 @@ SEXP shallowwrapper(SEXP dt, SEXP cols) {
 }
 
 SEXP truelength(SEXP x) {
-  return ScalarInteger(is_growable(x) ? growable_capacity(x) : 0);
+  return ScalarInteger(isNull(x) ? 0 : growable_capacity(x));
 }
 
 SEXP selfrefokwrapper(SEXP x, SEXP verbose) {

src/freadR.c

@@ -265,7 +265,6 @@ bool userOverride(int8_t *type, lenOff *colNames, const char *anchor, const int
   colNamesSxp = R_NilValue;
   SET_VECTOR_ELT(RCHK, 1, colNamesSxp=growable_allocate(STRSXP, ncol, ncol));
   for (int i=0; i<ncol; i++) {
-    SEXP elem;
     if (colNames==NULL || colNames[i].len<=0) {
       char buff[12];
       snprintf(buff, sizeof(buff), "V%d", i + 1); // # notranslate

src/wrappers.c

@@ -132,16 +132,3 @@ SEXP warn_matrix_column_r(SEXP i) {
   warn_matrix_column(INTEGER(i)[0]);
   return R_NilValue;
 }
-
-SEXP setgrowable(SEXP x) {
-  for (R_xlen_t i = 0; i < xlength(x); ++i) {
-    SEXP this = VECTOR_ELT(x, i);
-    if (
-      !is_growable(this)
-#ifndef USE_GROWABLE_ALREP
-      && !ALTREP(this)
-#endif
-    ) SET_VECTOR_ELT(x, i, make_growable(this));
-  }
-  return R_NilValue;
-}