[MLton-commit] r5707

[Matthew Fluet]

Wrong c-type signedness
----------------------------------------------------------------------

U   mlton/trunk/mlton/atoms/c-type.fun

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

Modified: mlton/trunk/mlton/atoms/c-type.fun
===================================================================
--- mlton/trunk/mlton/atoms/c-type.fun	2007-07-01 21:26:50 UTC (rev 5706)
+++ mlton/trunk/mlton/atoms/c-type.fun	2007-07-01 22:31:15 UTC (rev 5707)
@@ -142,7 +142,7 @@
 val csize =
    Promise.lazy
    (fn () => word' (Control.Target.Size.cint (),
-                    {signed = true}))
+                    {signed = false}))
 
 val seqIndex =
    Promise.lazy
@@ -152,7 +152,7 @@
 val objptrHeader =
    Promise.lazy
    (fn () => word' (Control.Target.Size.header (),
-                    {signed = true}))
+                    {signed = false}))
 
 val bool = word (WordSize.bool, {signed = true})
 val shiftArg = word (WordSize.shiftArg, {signed = false})