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

Diff of /sml/trunk/src/system/Basis/Implementation/real64.sml

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

revision 1038, Mon Jan 28 00:18:03 2002 UTC revision 1039, Mon Jan 28 15:57:11 2002 UTC
# Line 111  Line 111 
111              val saveMode = IEEEReal.getRoundingMode ()              val saveMode = IEEEReal.getRoundingMode ()
112              in              in
113                IEEEReal.setRoundingMode mode;                IEEEReal.setRoundingMode mode;
114                if x>=0.0 then x+maxInt-maxInt else x-maxInt+maxInt                (if x>=0.0 then x+maxInt-maxInt else x-maxInt+maxInt)
115                  before IEEEReal.setRoundingMode saveMode                  before IEEEReal.setRoundingMode saveMode
116              end              end
117      in      in

Legend:
Removed from v.1038  
changed lines
  Added in v.1039

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