Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Tracker SCM

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 1349, Wed Sep 3 22:22:18 2003 UTC revision 1350, Fri Sep 5 21:34:27 2003 UTC
# Line 211  Line 211 
211          if negative then ~m else m          if negative then ~m else m
212      end      end
213    
 (*  
       (* bug: doesn't support full range of large ints *)  
     fun toLargeInt mode x = IntInfImp.fromInt(toInt mode x)  
 *)  
   
214    (* whole and split could be implemented more efficiently if we had    (* whole and split could be implemented more efficiently if we had
215     * control over the rounding mode; but for now we don't.     * control over the rounding mode; but for now we don't.
216     *)     *)
# Line 330  Line 325 
325                           IntInfImp.<< (iman, InlineT.Word31.copyf_int31 exp)                           IntInfImp.<< (iman, InlineT.Word31.copyf_int31 exp)
326                       end                       end
327               end               end
 (*  
 (** NOTE logb and scalb are also defined in math64.sml; do we need both??? **)  
     fun logb x = (case Assembly.A.logb x  
            of ~1023 => (* denormalized number *)  
                 Assembly.A.logb(x * two_to_the_54) - 54  
             | i => i  
           (* end case *))  
   
     fun scalb (x, k) = if I.ltu (k+1022,2046)  
           then Assembly.A.scalb(x,k)  
           else let val k1 = k div 2  
             in  
               scalb(scalb(x, k1), k - k1)  
             end  
 *)  
328    
329      fun nextAfter _ = raise Fail "Real.nextAfter unimplemented"      fun nextAfter _ = raise Fail "Real.nextAfter unimplemented"
330    

Legend:
Removed from v.1349  
changed lines
  Added in v.1350

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