Return to float.fs CVS log | Up to [gforth] / gforth |
version 1.56, 2009/12/31 15:32:35 | version 1.58, 2010/12/31 18:09:02 |
---|---|
Line 1 | Line 1 |
\ High level floating point 14jan94py | \ High level floating point 14jan94py |
\ Copyright (C) 1995,1997,2003,2004,2005,2006,2007,2009 Free Software Foundation, Inc. | \ Copyright (C) 1995,1997,2003,2004,2005,2006,2007,2009,2010 Free Software Foundation, Inc. |
\ This file is part of Gforth. | \ This file is part of Gforth. |
Line 233 set-current | Line 233 set-current |
fnegate f~rel | fnegate f~rel |
THEN ; | THEN ; |
-0e fp@ c@ $80 = [if] 0 [else] 7 [endif] constant fsign-offset | -0e 8 0 [do] fp@ [i] + c@ $80 = [if] [i] constant fsign-offset [then] [loop] |
: fcopysign ( r1 r2 -- r3 ) \ gforth | : fcopysign ( r1 r2 -- r3 ) \ gforth |
\G r3 takes its absolute value from r1 and its sign from r2 | \G r3 takes its absolute value from r1 and its sign from r2 |