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/num-format.sml
ViewVC logotype

Diff of /sml/trunk/src/system/Basis/Implementation/num-format.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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"

Legend:
Removed from v.1850  
changed lines
  Added in v.1851

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