[gforth] / gforth / float.fs  

gforth: gforth/float.fs

Diff for /gforth/float.fs between version 1.37 and 1.38

version 1.37, Sun Oct 27 09:57:10 2002 UTC version 1.38, Sat Nov 2 15:26:03 2002 UTC
Line 222 
Line 222 
         fnegate f~rel          fnegate f~rel
     THEN ;      THEN ;
   
 2e 53e f** fconstant fround-offset \ !! does f** work correctly?  1e 53 0 [do] f2* [loop] fconstant fround-offset \ 2^53
   
 : fround ( r1 -- r2 ) \ float f-round  : fround ( r1 -- r2 ) \ float f-round
 \G Round to nearest integral value.  Break ties with round-to-even.  \G Round to nearest integral value.  Break ties with round-to-even.

Generate output suitable for use with a patch program
Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help