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/branches/idlbasis-devel/src/system/Basis/Implementation/real64.sml
ViewVC logotype

Diff of /sml/branches/idlbasis-devel/src/system/Basis/Implementation/real64.sml

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

revision 862, Thu Jun 28 02:43:07 2001 UTC revision 863, Thu Jun 28 20:41:28 2001 UTC
# Line 170  Line 170 
170                                    then IEEEReal.SUBNORMAL                                    then IEEEReal.SUBNORMAL
171                                    else IEEEReal.NORMAL                                    else IEEEReal.NORMAL
172                          else if x==x then IEEEReal.INF                          else if x==x then IEEEReal.INF
173                                       else IEEEReal.NAN IEEEReal.QUIET                                       else IEEEReal.NAN
174         else if x<posInf then if x == 0.0 then IEEEReal.ZERO         else if x<posInf then if x == 0.0 then IEEEReal.ZERO
175                               else if Assembly.A.logb x = ~1023                               else if Assembly.A.logb x = ~1023
176                                    then IEEEReal.SUBNORMAL                                    then IEEEReal.SUBNORMAL
177                                    else IEEEReal.NORMAL                                    else IEEEReal.NORMAL
178                          else if x==x then IEEEReal.INF                          else if x==x then IEEEReal.INF
179                                       else IEEEReal.NAN IEEEReal.QUIET                                       else IEEEReal.NAN
180    
181      val radix = 2      val radix = 2
182      val precision = 52      val precision = 52

Legend:
Removed from v.862  
changed lines
  Added in v.863

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