[MLton-commit] r6246

[Matthew Fluet]

Increase max shift per IntInf shift operation
----------------------------------------------------------------------

U   mlton/trunk/basis-library/integer/int-inf.sml

----------------------------------------------------------------------

Modified: mlton/trunk/basis-library/integer/int-inf.sml
===================================================================
--- mlton/trunk/basis-library/integer/int-inf.sml	2007-12-09 18:25:14 UTC (rev 6245)
+++ mlton/trunk/basis-library/integer/int-inf.sml	2007-12-09 19:13:29 UTC (rev 6246)
@@ -30,7 +30,7 @@
       fun sameSign (x, y) = sign x = sign y
 
       local
-         val maxShift32 = 0w128
+         val maxShift32 = Word32.<< (0wx1, 0w30)
          val maxShift = Word32.toWord maxShift32
          fun make f (arg, shift) =
             let