Diff for /gforth/float.fs between versions 1.43 and 1.46

version 1.43, 2004/05/08 17:14:30 version 1.46, 2004/12/31 13:23:57
Line 1 Line 1
 \ High level floating point                            14jan94py  \ High level floating point                            14jan94py
   
 \ Copyright (C) 1995,1997,2003 Free Software Foundation, Inc.  \ Copyright (C) 1995,1997,2003,2004 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
Line 221  set-current Line 221  set-current
     ELSE      ELSE
         fnegate f~rel          fnegate f~rel
     THEN ;      THEN ;
   
   \ proposals from Krishna Myeni in <cjsp2d$47l$1@ngspool-d02.news.aol.com>
   \ not sure if they are a good idea
   
   : FTRUNC ( r1 -- r2 )
       \ round towards 0
       \ !! should be implemented properly
       F>D D>F ;
   
   : FMOD ( r1 r2 -- r )
       \ remainder of r1/r2
       FOVER FOVER F/ ftrunc F* F- ;

Removed from v.1.43  
changed lines
  Added in v.1.46


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