SCM Repository
| [smlnj] / sml / trunk / src / system / Basis / Implementation / Posix / posix-process.sml |
Diff of /sml/trunk/src/system/Basis/Implementation/Posix/posix-process.sml
Parent Directory
| 
Revision Log
| 
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 () |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
