![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to float.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to float.fs CVS log | Up to [gforth] / gforth |
| version 1.56, 2009/12/31 15:32:35 | version 1.57, 2010/03/22 17:08:06 |
|---|---|
| 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 |