[MLton-commit] r4339

Matthew Fluet MLton@mlton.org
Thu, 2 Feb 2006 16:54:08 -0800


Sample change for C-type differences
----------------------------------------------------------------------

U   mlton/branches/on-20050822-x86_64-branch/basis-library/system/time.sml

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

Modified: mlton/branches/on-20050822-x86_64-branch/basis-library/system/time.sml
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/basis-library/system/time.sml	2006-02-03 00:39:26 UTC (rev 4338)
+++ mlton/branches/on-20050822-x86_64-branch/basis-library/system/time.sml	2006-02-03 00:54:06 UTC (rev 4339)
@@ -71,8 +71,8 @@
       (if ~1 = Prim.getTimeOfDay ()
           then raise Fail "Time.now"
        else ()
-       ; timeAdd(fromSeconds (LargeInt.fromInt (Prim.sec ())),
-                 fromMicroseconds (LargeInt.fromInt (Prim.usec ()))))
+       ; timeAdd(fromSeconds (C.Time.toLarge (Prim.sec ())),
+                 fromMicroseconds (C.SUSeconds.toLarge (Prim.usec ()))))
    val prev = ref (getNow ())
 in
    fun now (): time =