Now serializedSize() always returns a double [#123]

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: parallelly
-Version: 1.40.1-9006
+Version: 1.40.1-9007
 Title: Enhancing the 'parallel' Package
 Imports:
     parallel,

NEWS.md

@@ -8,6 +8,12 @@
  * `makeClusterPSOCK()` will now produce an error, rather than a
    warning, when the local system command used to launch the parallel
    worker failed with a non-zero exit code.
+
+ * Now `serializedSize()` always returns a double. Previously, it
+   would return an integer, if the value could be represented by an
+   integer. However, it turned out that returning an integer increased
+   the risk for integer overflow later on if, say, to such values were
+   added together.
 
 ## Bug Fixes
 

R/serializedSize.R

@@ -5,7 +5,7 @@
 #'
 #' @param obj An R object.
 #'
-#' @return (integer or double) Number of bytes needed to serialize this object.
+#' @return (double) Number of bytes needed to serialize this object.
 #'
 #' @examples
 #' object.size(mtcars)

src/calc-serialized-size.c

@@ -71,9 +71,5 @@ R_xlen_t calc_serialized_size(SEXP robj) {
 //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 SEXP R_calc_serialized_size(SEXP robj) {
   R_xlen_t count = calc_serialized_size(robj);
-  if (count > R_INT_MAX) {
-    return(ScalarReal((double) count));
-  } else {
-    return(ScalarInteger(count));
-  }
+  return(ScalarReal((double) count));
 }