Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Tracker SCM

SCM Repository

[smlnj] Diff of /sml/trunk/src/system/Basis/Implementation/internal-timer.sml
ViewVC logotype

Diff of /sml/trunk/src/system/Basis/Implementation/internal-timer.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1349, Wed Sep 3 22:22:18 2003 UTC revision 1350, Fri Sep 5 21:34:27 2003 UTC
# Line 24  Line 24 
24      local      local
25        val gettime' : unit -> (Int32.int * int * Int32.int * int * Int32.int * int) =        val gettime' : unit -> (Int32.int * int * Int32.int * int * Int32.int * int) =
26              CInterface.c_function "SMLNJ-Time" "gettime"              CInterface.c_function "SMLNJ-Time" "gettime"
27        fun mkTime (s, us) = PB.TIME{sec=Int32.toLarge s, usec=Int.toLarge us}        fun mkTime (s, us) =
28              TimeImp.fromMicroseconds (1000000 * Int32.toLarge s +
29                                        Int.toLarge us)
30      in      in
31      fun getTime () = let val (ts, tu, ss, su, gs, gu) = gettime' ()      fun getTime () = let val (ts, tu, ss, su, gs, gu) = gettime' ()
32            in            in

Legend:
Removed from v.1349  
changed lines
  Added in v.1350

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0