Move the resizable allocation functions to utils.c

Author: aitap

src/data.table.h

@@ -89,19 +89,7 @@
 
 // TODO(R>=4.6.0): remove the SVN revision check
 #if R_VERSION < R_Version(4, 6, 0) || R_SVN_REVISION < 89077
-  static inline SEXP R_allocResizableVector_(SEXPTYPE type, R_xlen_t maxlen) {
-    SEXP ret = allocVector(type, maxlen);
-    SET_TRUELENGTH(ret, maxlen);
-    SET_GROWABLE_BIT(ret);
-    return ret;
-  }
 # define R_allocResizableVector(type, maxlen) R_allocResizableVector_(type, maxlen)
-  static inline SEXP R_duplicateAsResizable_(SEXP x) {
-    SEXP ret = duplicate(x);
-    SET_TRUELENGTH(ret, xlength(ret));
-    SET_GROWABLE_BIT(ret);
-    return ret;
-  }
 # define R_duplicateAsResizable(x) R_duplicateAsResizable_(x)
 # define R_resizeVector(x, newlen) SETLENGTH(x, newlen)
 # define R_maxLength(x) TRUELENGTH(x)
@@ -347,6 +335,8 @@ bool perhapsDataTable(SEXP x);
 SEXP perhapsDataTableR(SEXP x);
 SEXP frev(SEXP x, SEXP copyArg);
 NORET void internal_error(const char *call_name, const char *format, ...);
+SEXP R_allocResizableVector_(SEXPTYPE type, R_xlen_t maxlen);
+SEXP R_duplicateAsResizable_(SEXP x);
 
 // types.c
 char *end(char *start);

src/utils.c

@@ -659,3 +659,17 @@ void internal_error(const char *call_name, const char *format, ...) {
 
   error("%s %s: %s. %s", _("Internal error in"), call_name, buff, _("Please report to the data.table issues tracker."));
 }
+
+SEXP R_allocResizableVector_(SEXPTYPE type, R_xlen_t maxlen) {
+  SEXP ret = allocVector(type, maxlen);
+  SET_TRUELENGTH(ret, maxlen);
+  SET_GROWABLE_BIT(ret);
+  return ret;
+}
+
+SEXP R_duplicateAsResizable_(SEXP x) {
+  SEXP ret = duplicate(x);
+  SET_TRUELENGTH(ret, xlength(ret));
+  SET_GROWABLE_BIT(ret);
+  return ret;
+}