Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/system/Basis/Implementation/Posix/posix-process.sml
ViewVC logotype

Diff of /sml/trunk/src/system/Basis/Implementation/Posix/posix-process.sml

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

revision 1505, Thu Jun 17 20:41:47 2004 UTC revision 1506, Thu Jun 17 22:19:15 2004 UTC
# Line 80  Line 80 
80        | mkExitStatus (1,s) = W_SIGNALED (Sig.SIG s)        | mkExitStatus (1,s) = W_SIGNALED (Sig.SIG s)
81        | mkExitStatus (_,s) = W_STOPPED (Sig.SIG s)        | mkExitStatus (_,s) = W_STOPPED (Sig.SIG s)
82    
83        fun fromStatus s = mkExitStatus (Int.quot (s, 256), Int.rem (s, 256))
84    
85      structure W = struct      structure W = struct
86          local structure W0 = BitFlagsFn ()          local structure W0 = BitFlagsFn ()

Legend:
Removed from v.1505  
changed lines
  Added in v.1506

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