[MLton] Real.fromLargeInt buggy (64 bit)

[Wesley W. Terpstra]

> terpstra at tokyo:~$ ./bug
> 3 6
> terpstra at tokyo:~$ cat bug.sml
> val x = Real.fromLargeInt 3
> val y = Real.toInt IEEEReal.TO_ZERO x
> val () = print (Int.toString 3 ^ " " ^ Int.toString y ^ "\n")

... are these not covered by the regression suite?