Runtime: better fix of string_of_float

Author: vouillon

runtime/stdlib.js

@@ -606,7 +606,7 @@ function caml_format_float (fmt, x) {
       s = x.toExponential(prec - 1);
       var j = s.indexOf('e');
       var exp = +s.slice(j + 1);
-      if (exp < -4 || x.toFixed(0).length > prec) {
+      if (exp < -4 || x >= 1e21 || x.toFixed(0).length > prec) {
         // remove trailing zeroes
         var i = j - 1; while (s.charAt(i) == '0') i--;
         if (s.charAt(i) == '.') i--;
@@ -619,7 +619,7 @@ function caml_format_float (fmt, x) {
         var p = prec;
         if (exp < 0) { p -= exp + 1; s = x.toFixed(p); }
         else while (s = x.toFixed(p), s.length > prec + 1) p--;
-        if (p && ! (s.indexOf('e') > 0)) {
+        if (p) {
           // remove trailing zeroes
           var i = s.length - 1; while (s.charAt(i) == '0') i--;
           if (s.charAt(i) == '.') i--;