SCM Repository
Diff of /trunk/src/compiler/common/float-lit.sml
Parent Directory
| 
Revision Log
| 
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) ***** |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
