tweak

Author: bobzhang

jscomp/runtime/caml_format.ml

@@ -381,7 +381,7 @@ let dec_of_pos_int64 x =
 
 
   (if  x < 0L then
-     let s = ref "" in   
+     
      let wbase  =  10L  in
      let  cvtbl = "0123456789" in
     let y  = Caml_int64.discard_sign x in
@@ -401,9 +401,9 @@ let dec_of_pos_int64 x =
       ref (Caml_int64_extern.add (Caml_int64_extern.add quotient_l c )
              e)  in
     let modulus = ref f in
-    s .contents<-
-      Caml_string_extern.get_string_unsafe 
-        cvtbl (Caml_int64_extern.to_int modulus.contents) ^ s.contents ;
+    let s = ref 
+      (Caml_string_extern.get_string_unsafe 
+        cvtbl (Caml_int64_extern.to_int modulus.contents)) in
 
     while quotient.contents <> 0L do
       let a, b = Caml_int64.div_mod (quotient.contents) wbase in

lib/es6/caml_format.js

@@ -581,7 +581,6 @@ function dec_of_pos_int64(x) {
           /* hi */0,
           /* lo */0
         ])) {
-    var s = "";
     var wbase = /* int64 */[
       /* hi */0,
       /* lo */10
@@ -598,7 +597,7 @@ function dec_of_pos_int64(x) {
               /* lo */3435973836
             ], match[0]), match$1[0]);
     var modulus = match$1[1];
-    s = cvtbl[Caml_int64.to_int32(modulus)] + s;
+    var s = cvtbl[Caml_int64.to_int32(modulus)];
     while(Caml_int64.neq(quotient, /* int64 */[
             /* hi */0,
             /* lo */0

lib/js/caml_format.js

@@ -581,7 +581,6 @@ function dec_of_pos_int64(x) {
           /* hi */0,
           /* lo */0
         ])) {
-    var s = "";
     var wbase = /* int64 */[
       /* hi */0,
       /* lo */10
@@ -598,7 +597,7 @@ function dec_of_pos_int64(x) {
               /* lo */3435973836
             ], match[0]), match$1[0]);
     var modulus = match$1[1];
-    s = cvtbl[Caml_int64.to_int32(modulus)] + s;
+    var s = cvtbl[Caml_int64.to_int32(modulus)];
     while(Caml_int64.neq(quotient, /* int64 */[
             /* hi */0,
             /* lo */0

package.json

@@ -15,7 +15,7 @@
     "test-bsb": "node scripts/ciTest.js -bsb",
     "test-ocaml": "node scripts/ciTest.js -ounit",
     "postinstall": "node scripts/install.js",
-    "coverage" : "nyc --timeout=3000 --report=html mocha jscomp/test/*test.js && open ./coverage/index.html"
+    "coverage" : "nyc --timeout=3000 --reporter=html mocha jscomp/test/*test.js && open ./coverage/index.html"
   },
   "name": "bs-platform",
   "version": "7.3.0-dev.1",