[gforth] / gforth / float.fs  

gforth: gforth/float.fs

Diff for /gforth/float.fs between version 1.56 and 1.57

version 1.56, Thu Dec 31 15:32:35 2009 UTC version 1.57, Mon Mar 22 17:08:06 2010 UTC
Line 233 
Line 233 
         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

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help