[MLton-commit] r5384

[Vesa Karvonen]

Added Wait.hash.

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

U   mltonlib/trunk/com/ssh/windows/unstable/detail/windows.sml
U   mltonlib/trunk/com/ssh/windows/unstable/public/windows-ex.sig

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

Modified: mltonlib/trunk/com/ssh/windows/unstable/detail/windows.sml
===================================================================
--- mltonlib/trunk/com/ssh/windows/unstable/detail/windows.sml	2007-03-02 11:26:36 UTC (rev 5383)
+++ mltonlib/trunk/com/ssh/windows/unstable/detail/windows.sml	2007-03-02 11:57:10 UTC (rev 5384)
@@ -322,6 +322,8 @@
    structure Wait = struct
       type t = C.voidptr
 
+      val hash =
+          Word.xorb o 0wx55555555 <\ Misc.psdes o C.Cvt.ml_ulong o C.U.p2i
       val compare = C.Ptr.compare'
 
       datatype 'a result

Modified: mltonlib/trunk/com/ssh/windows/unstable/public/windows-ex.sig
===================================================================
--- mltonlib/trunk/com/ssh/windows/unstable/public/windows-ex.sig	2007-03-02 11:26:36 UTC (rev 5383)
+++ mltonlib/trunk/com/ssh/windows/unstable/public/windows-ex.sig	2007-03-02 11:57:10 UTC (rev 5384)
@@ -34,6 +34,8 @@
    structure Wait : sig
       type t
 
+      val hash : t -> Word.t
+
       val compare : t Cmp.t
 
       datatype 'a result