[gforth] / gforth / float.fs  

gforth: gforth/float.fs

Diff for /gforth/float.fs between version 1.40 and 1.42

version 1.40, Sun Dec 15 17:38:51 2002 UTC version 1.42, Sun Mar 9 15:16:49 2003 UTC
Line 1 
Line 1 
 \ High level floating point                            14jan94py  \ High level floating point                            14jan94py
   
 \ Copyright (C) 1995,1997 Free Software Foundation, Inc.  \ Copyright (C) 1995,1997,2003 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
Line 211 
Line 211 
     \G @code{f~abs}; r3=0: bitwise comparison; r3<0: @code{fnegate f~rel}.      \G @code{f~abs}; r3=0: bitwise comparison; r3<0: @code{fnegate f~rel}.
     fdup f0=      fdup f0=
     IF \ bitwise comparison      IF \ bitwise comparison
         fp@ float+ 1 floats over float+ -text 0=          fp@ float+ 1 floats over float+ over str=
         fdrop fdrop fdrop          fdrop fdrop fdrop
         EXIT          EXIT
     THEN      THEN

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help