version 1.54, 2009/05/24 17:36:36
|
version 1.55, 2009/09/25 18:52:29
|
Line 238 set-current
|
Line 238 set-current
|
: 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 |
\ !! implementation relies on IEEE DP format |
\ !! implementation relies on IEEE DP format |
fp@ dup fsign-offset + dup c@ $80 and >r ( r1 r2 addr-r1sign ) |
fp@ fsign-offset + dup c@ $80 and >r ( r1 r2 addr-r1sign ) |
float + dup c@ $7f and r> or swap c! |
float+ dup c@ $7f and r> or swap c! |
fdrop ; |
fdrop ; |
|
|
\ proposals from Krishna Myeni in <cjsp2d$47l$1@ngspool-d02.news.aol.com> |
\ proposals from Krishna Myeni in <cjsp2d$47l$1@ngspool-d02.news.aol.com> |