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/math64-none.sml
ViewVC logotype

Diff of /sml/trunk/src/system/Basis/Implementation/math64-none.sml

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

revision 1380, Wed Sep 17 20:20:51 2003 UTC revision 1381, Wed Sep 17 21:28:41 2003 UTC
# Line 129  Line 129 
129                     then Assembly.A.floor x                     then Assembly.A.floor x
130                    else if isNan x then raise General.Domain                    else if isNan x then raise General.Domain
131                    else raise General.Overflow                    else raise General.Overflow
132      val real = InlineT.real      val real = InlineT.Real64.from_int31
133    
134    (* This is the IEEE double-precision maxint; won't work accurately on VAX *)    (* This is the IEEE double-precision maxint; won't work accurately on VAX *)
135      val maxint = 4503599627370496.0      val maxint = 4503599627370496.0

Legend:
Removed from v.1380  
changed lines
  Added in v.1381

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