Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /trunk/src/compiler/common/float-lit.sml
ViewVC logotype

Diff of /trunk/src/compiler/common/float-lit.sml

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

revision 233, Thu Aug 5 18:01:53 2010 UTC revision 234, Thu Aug 5 21:34:29 2010 UTC
# Line 40  Line 40 
40     *)     *)
41      val float : {isNeg : bool, whole : string, frac : string, exp : int} -> float      val float : {isNeg : bool, whole : string, frac : string, exp : int} -> float
42      val toString : float -> string      val toString : float -> string
43        val toReal : float -> real
44    
45    (* external representation (for pickling) *)    (* external representation (for pickling) *)
46      val toBytes : float -> Word8Vector.vector      val toBytes : float -> Word8Vector.vector
# Line 166  Line 167 
167              concat(s :: List.foldr (fn (d, ds) => Int.toString d :: ds) e digits)              concat(s :: List.foldr (fn (d, ds) => Int.toString d :: ds) e digits)
168            end            end
169    
170        fun toReal PosInf = Real.posInf
171          | toReal NegInf = Real.negInf
172          | toReal NaN = 0.0 / 0.0
173          | toReal x = valOf(Real.fromString(toString x))  (* FIXME *)
174    
175    
176    (***** external representation (for pickling) *****    (***** external representation (for pickling) *****

Legend:
Removed from v.233  
changed lines
  Added in v.234

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