[MLton-commit] r5973

Vesa Karvonen vesak at mlton.org
Tue Aug 28 05:19:11 PDT 2007


SML/NJ uses only 31-bit words.

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

U   mltonlib/trunk/com/ssh/generic/unstable/detail/value/hash.sml

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

Modified: mltonlib/trunk/com/ssh/generic/unstable/detail/value/hash.sml
===================================================================
--- mltonlib/trunk/com/ssh/generic/unstable/detail/value/hash.sml	2007-08-28 11:04:21 UTC (rev 5972)
+++ mltonlib/trunk/com/ssh/generic/unstable/detail/value/hash.sml	2007-08-28 12:19:10 UTC (rev 5973)
@@ -84,7 +84,7 @@
       fun C0 _ = unit
       fun C1 _ = getT
       fun data aS a {maxDepth, totWidth} =
-          if maxDepth = 0 then 0wx9AA5562B
+          if maxDepth = 0 then 0wx36958B65
           else getS aS a {maxDepth = maxDepth - 1,
                           totWidth = totWidth}
 
@@ -121,7 +121,7 @@
       val string = sequ String.length String.sub char
 
       fun exn e {maxDepth, totWidth} =
-          if maxDepth = 0 then 0wxD26156CB
+          if maxDepth = 0 then 0wx1A35B599
           else case Buffer.findSome (pass (e, {maxDepth = maxDepth - 1,
                                                totWidth = totWidth})) exns
                 of NONE   => GenericsUtil.failExn e




More information about the MLton-commit mailing list