[gforth] / gforth / float.fs  

gforth: gforth/float.fs

Diff for /gforth/float.fs between version 1.54 and 1.55

version 1.54, Sun May 24 17:36:36 2009 UTC version 1.55, Fri Sep 25 18:52:29 2009 UTC
Line 238 
Line 238 
 : 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 ;
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help