PROTECT() Scalar* objects

Rdatatable · Jul 12, 2024 · 56e8a13 · 56e8a13
1 parent 3c3baa9
commit 56e8a13
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/frollR.c b/src/frollR.c
@@ -15,7 +15,8 @@ SEXP coerceToRealListR(SEXP obj) {
     SEXP this_obj = VECTOR_ELT(obj, i);
     if (!(isReal(this_obj) || isInteger(this_obj) || isLogical(this_obj)))
       error(_("x must be of type numeric or logical, or a list, data.frame or data.table of such"));
-    SET_VECTOR_ELT(x, i, coerceAs(this_obj, ScalarReal(NA_REAL), /*copyArg=*/ScalarLogical(false))); // copyArg=false will make type-class match to return as-is, no copy
+    SET_VECTOR_ELT(x, i, coerceAs(this_obj, PROTECT(ScalarReal(NA_REAL)), /*copyArg=*/PROTECT(ScalarLogical(false)))); // copyArg=false will make type-class match to return as-is, no copy
+    UNPROTECT(2); // scalar arguments to coerceAs()
   }
   UNPROTECT(protecti);
   return x;