reuse Caml_int64.to_string

Author: bobzhang

jscomp/runtime/caml_format.ml

@@ -398,20 +398,11 @@ let dec_of_pos_int64 x =
     let c, d = Caml_int64.div_mod  y  wbase in
     let e ,f = Caml_int64.div_mod (Caml_int64_extern.add modulus_l d) wbase in        
     let quotient =
-      ref (Caml_int64_extern.add (Caml_int64_extern.add quotient_l c )
+       (Caml_int64_extern.add (Caml_int64_extern.add quotient_l c )
              e)  in
-    let modulus = ref f in
-    let s = ref 
+    Caml_int64.to_string quotient ^ 
       (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
-      quotient .contents<- a;
-      modulus .contents<- b;
-      s .contents<- Caml_string_extern.get_string_unsafe cvtbl (Caml_int64_extern.to_int modulus.contents) ^ s.contents ;
-    done;
-    s.contents
+        cvtbl (Caml_int64_extern.to_int f))     
   else
    Caml_int64.to_string x)
 

lib/es6/caml_format.js

@@ -585,7 +585,6 @@ function dec_of_pos_int64(x) {
       /* hi */0,
       /* lo */10
     ];
-    var cvtbl = "0123456789";
     var y = Caml_int64.discard_sign(x);
     var match = Caml_int64.div_mod(y, wbase);
     var match$1 = Caml_int64.div_mod(Caml_int64.add(/* int64 */[
@@ -596,18 +595,7 @@ function dec_of_pos_int64(x) {
               /* hi */214748364,
               /* lo */3435973836
             ], match[0]), match$1[0]);
-    var modulus = match$1[1];
-    var s = cvtbl[Caml_int64.to_int32(modulus)];
-    while(Caml_int64.neq(quotient, /* int64 */[
-            /* hi */0,
-            /* lo */0
-          ])) {
-      var match$2 = Caml_int64.div_mod(quotient, wbase);
-      quotient = match$2[0];
-      modulus = match$2[1];
-      s = cvtbl[Caml_int64.to_int32(modulus)] + s;
-    };
-    return s;
+    return Caml_int64.to_string(quotient) + "0123456789"[Caml_int64.to_int32(match$1[1])];
   } else {
     return Caml_int64.to_string(x);
   }

lib/js/caml_format.js

@@ -585,7 +585,6 @@ function dec_of_pos_int64(x) {
       /* hi */0,
       /* lo */10
     ];
-    var cvtbl = "0123456789";
     var y = Caml_int64.discard_sign(x);
     var match = Caml_int64.div_mod(y, wbase);
     var match$1 = Caml_int64.div_mod(Caml_int64.add(/* int64 */[
@@ -596,18 +595,7 @@ function dec_of_pos_int64(x) {
               /* hi */214748364,
               /* lo */3435973836
             ], match[0]), match$1[0]);
-    var modulus = match$1[1];
-    var s = cvtbl[Caml_int64.to_int32(modulus)];
-    while(Caml_int64.neq(quotient, /* int64 */[
-            /* hi */0,
-            /* lo */0
-          ])) {
-      var match$2 = Caml_int64.div_mod(quotient, wbase);
-      quotient = match$2[0];
-      modulus = match$2[1];
-      s = cvtbl[Caml_int64.to_int32(modulus)] + s;
-    };
-    return s;
+    return Caml_int64.to_string(quotient) + "0123456789"[Caml_int64.to_int32(match$1[1])];
   } else {
     return Caml_int64.to_string(x);
   }