SCM Repository
| [smlnj] / sml / trunk / src / system / Basis / Implementation / num-format.sml |
Diff of /sml/trunk/src/system/Basis/Implementation/num-format.sml
Parent Directory
| 
Revision Log
| 
Patch
| revision 1850, Tue Oct 25 23:17:27 2005 UTC | revision 1851, Fri Oct 28 19:17:56 2005 UTC | |
|---|---|---|
| # | Line 24 | Line 24 |
| 24 | val op div = W.div | val op div = W.div |
| 25 | ||
| 26 | fun mkDigit (w : Word32.word) = | fun mkDigit (w : Word32.word) = |
| 27 | InlineT.CharVector.sub("0123456789abcdef", W.toInt w) | InlineT.CharVector.sub("0123456789ABCDEF", W.toInt w) |
| 28 | ||
| 29 | fun wordToBin w = let | fun wordToBin w = let |
| 30 | fun mkBit w = if (W.andb(w, 0w1) = 0w0) then #"0" else #"1" | fun mkBit w = if (W.andb(w, 0w1) = 0w0) then #"0" else #"1" |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
