[gforth] / gforth / float.fs  

gforth: gforth/float.fs

Diff for /gforth/float.fs between version 1.13 and 1.14

version 1.13, Mon Feb 6 18:14:33 1995 UTC version 1.14, Wed Feb 8 13:38:51 1995 UTC
Line 32 
Line 32 
   
 : fdepth  ( -- n )  f0 @ fp@ - [ 1 floats ] Literal / ;  : fdepth  ( -- n )  f0 @ fp@ - [ 1 floats ] Literal / ;
   
 : FLit ( -- r )  r> faligned dup f@ float+ >r ;  : FLit ( -- r )  r> dup f@ float+ >r ;
 : FLiteral ( r -- )  postpone FLit  falign f, ;  immediate  : FLiteral ( r -- )
     BEGIN  here cell+ dup faligned <>  WHILE  postpone noop  REPEAT
     postpone FLit  f, ;  immediate
   
 &15 Value precision  &15 Value precision
 : set-precision  to precision ;  : set-precision  to precision ;

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help