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

SCM Repository

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

Diff of /sml/trunk/src/system/Basis/Implementation/NJ/interval-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 20  Line 20 
20    
21      fun tick () = let val (s, us) = tick'()      fun tick () = let val (s, us) = tick'()
22            in            in
23              PreBasis.TIME{sec= Int32.toLarge s, usec= Int.toLarge us}              TimeImp.fromMicroseconds
24                    (Int32.toLarge s * 1000000 + Int.toLarge us)
25            end            end
26    
27      fun fromTimeOpt NONE = NONE      fun fromTimeOpt NONE = NONE
28        | fromTimeOpt (SOME(PreBasis.TIME{sec, usec})) =        | fromTimeOpt (SOME t) = let
29                val usec = TimeImp.toMicroseconds t
30                val (sec, usec) = IntInfImp.divMod (usec, 1000000)
31            in
32            SOME(Int32.fromLarge sec, Int.fromLarge usec)            SOME(Int32.fromLarge sec, Int.fromLarge usec)
33            end
34    
35      fun setIntTimer timOpt = setITimer(fromTimeOpt timOpt)      fun setIntTimer timOpt = setITimer(fromTimeOpt timOpt)
36    

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