Diff for /gforth/float.fs between versions 1.42 and 1.44

version 1.42, 2003/03/09 15:16:49 version 1.44, 2004/12/08 11:05:08
Line 222  set-current Line 222  set-current
         fnegate f~rel          fnegate f~rel
     THEN ;      THEN ;
   
 : f.s ( -- ) \ gforth f-dot-s  \ proposals from Krishna Myeni in <cjsp2d$47l$1@ngspool-d02.news.aol.com>
     \G Display the number of items on the floating-point stack,  \ not sure if they are a good idea
     \G followed by a list of the items; TOS is the right-most item.  
     ." <" fdepth 0 .r ." > " fdepth 0 max maxdepth-.s @ min dup 0   : FTRUNC ( r1 -- r2 )
     ?DO  dup i - 1- floats fp@ + f@ f.  LOOP  drop ;       \ round towards 0
       \ !! should be implemented properly
       F>D D>F ;
   
   : FMOD ( r1 r2 -- r )
       \ remainder of r1/r2
       \ !! should be implemented properly
       FOVER FOVER F/ ftrunc F* F- ;

Removed from v.1.42  
changed lines
  Added in v.1.44


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>