[MLton-commit] r5601

[Vesa Karvonen]

Note on word16.

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

U   mltonlib/trunk/com/ssh/generic/unstable/detail/value/arbitrary.sml
U   mltonlib/trunk/com/ssh/generic/unstable/detail/value/dummy.sml
U   mltonlib/trunk/com/ssh/generic/unstable/detail/value/eq.sml
U   mltonlib/trunk/com/ssh/generic/unstable/detail/value/ord.sml
U   mltonlib/trunk/com/ssh/generic/unstable/detail/value/show.sml
U   mltonlib/trunk/com/ssh/generic/unstable/detail/value/type-info.sml

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

Modified: mltonlib/trunk/com/ssh/generic/unstable/detail/value/arbitrary.sml
===================================================================
--- mltonlib/trunk/com/ssh/generic/unstable/detail/value/arbitrary.sml	2007-06-08 14:04:01 UTC (rev 5600)
+++ mltonlib/trunk/com/ssh/generic/unstable/detail/value/arbitrary.sml	2007-06-08 14:19:35 UTC (rev 5601)
@@ -163,7 +163,8 @@
           nullary outer (iso' word' (Iso.<--> (Iso.swap W.isoLarge, large)))
    in
       fun word8  ? = mk Outer.word8  Word8.isoLarge  ?
-   (* fun word16 ? = mk Outer.word16 Word16.isoLarge ? *)
+   (* fun word16 ? = mk Outer.word16 Word16.isoLarge ?
+      (* Word16 not provided by SML/NJ *) *)
       fun word32 ? = mk Outer.word32 Word32.isoLarge ?
       fun word64 ? = mk Outer.word64 Word64.isoLarge ?
    end

Modified: mltonlib/trunk/com/ssh/generic/unstable/detail/value/dummy.sml
===================================================================
--- mltonlib/trunk/com/ssh/generic/unstable/detail/value/dummy.sml	2007-06-08 14:04:01 UTC (rev 5600)
+++ mltonlib/trunk/com/ssh/generic/unstable/detail/value/dummy.sml	2007-06-08 14:19:35 UTC (rev 5601)
@@ -61,7 +61,7 @@
       val word   = SOME 0w0
 
       val word8  : Word8.t  Index.t = SOME 0w0
-   (* val word16 : Word16.t Index.t = SOME 0w0 *)
+   (* val word16 : Word16.t Index.t = SOME 0w0 (* Word16 not provided by SML/NJ *) *)
       val word32 : Word32.t Index.t = SOME 0w0
       val word64 : Word64.t Index.t = SOME 0w0
 

Modified: mltonlib/trunk/com/ssh/generic/unstable/detail/value/eq.sml
===================================================================
--- mltonlib/trunk/com/ssh/generic/unstable/detail/value/eq.sml	2007-06-08 14:04:01 UTC (rev 5600)
+++ mltonlib/trunk/com/ssh/generic/unstable/detail/value/eq.sml	2007-06-08 14:19:35 UTC (rev 5601)
@@ -64,7 +64,7 @@
       val largeWord = op =
 
       val word8  = op =
-   (* val word16 = op = *)
+   (* val word16 = op = (* Word16 not provided by SML/NJ *) *)
       val word32 = op =
       val word64 = op =
 

Modified: mltonlib/trunk/com/ssh/generic/unstable/detail/value/ord.sml
===================================================================
--- mltonlib/trunk/com/ssh/generic/unstable/detail/value/ord.sml	2007-06-08 14:04:01 UTC (rev 5600)
+++ mltonlib/trunk/com/ssh/generic/unstable/detail/value/ord.sml	2007-06-08 14:19:35 UTC (rev 5601)
@@ -69,7 +69,7 @@
       val largeWord = LargeWord.compare
 
       val word8  = Word8.compare
-   (* val word16 = Word16.compare *)
+   (* val word16 = Word16.compare (* Word16 not provided by SML/NJ *) *)
       val word32 = Word32.compare
       val word64 = Word64.compare
 

Modified: mltonlib/trunk/com/ssh/generic/unstable/detail/value/show.sml
===================================================================
--- mltonlib/trunk/com/ssh/generic/unstable/detail/value/show.sml	2007-06-08 14:04:01 UTC (rev 5600)
+++ mltonlib/trunk/com/ssh/generic/unstable/detail/value/show.sml	2007-06-08 14:19:35 UTC (rev 5601)
@@ -185,7 +185,7 @@
       val largeWord = mkWord LargeWord.toString
 
       val word8  = mkWord Word8.toString
-   (* val word16 = mkWord Word16.toString *)
+   (* val word16 = mkWord Word16.toString (* Word16 not provided by SML/NJ *) *)
       val word32 = mkWord Word32.toString
       val word64 = mkWord Word64.toString)
 

Modified: mltonlib/trunk/com/ssh/generic/unstable/detail/value/type-info.sml
===================================================================
--- mltonlib/trunk/com/ssh/generic/unstable/detail/value/type-info.sml	2007-06-08 14:04:01 UTC (rev 5600)
+++ mltonlib/trunk/com/ssh/generic/unstable/detail/value/type-info.sml	2007-06-08 14:19:35 UTC (rev 5601)
@@ -121,7 +121,7 @@
       val word   = base
 
       val word8  = base
-      val word16 = base
+   (* val word16 = base (* Word16 not provided by SML/NJ *) *)
       val word32 = base
       val word64 = base