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

SCM Repository

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

Diff of /branches/pure-cfg/src/compiler/common/float-lit.sml

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

revision 606, Fri Mar 11 19:25:02 2011 UTC revision 607, Fri Mar 11 20:35:17 2011 UTC
# Line 191  Line 191 
191      fun toString PosInf = "+inf"      fun toString PosInf = "+inf"
192        | toString NegInf = "-inf"        | toString NegInf = "-inf"
193        | toString NaN = "nan"        | toString NaN = "nan"
194          | toString (Flt{isNeg, digits=[0], ...}) = if isNeg then "-0.0" else "0.0"
195        | toString (Flt{isNeg, digits, exp}) = let        | toString (Flt{isNeg, digits, exp}) = let
196            val s = if isNeg then "-0." else "0."            val s = if isNeg then "-0." else "0."
197            val e = if exp < 0            val e = if exp < 0

Legend:
Removed from v.606  
changed lines
  Added in v.607

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