[gforth] / gforth / float.fs  

gforth: gforth/float.fs

Diff for /gforth/float.fs between version 1.19 and 1.20

version 1.19, Mon May 13 16:36:55 1996 UTC version 1.20, Tue Sep 10 16:08:37 1996 UTC
Line 55 
Line 55 
   
 : f, ( f -- )  here 1 floats allot f! ;  : f, ( f -- )  here 1 floats allot f! ;
   
 : fconstant  ( r -- ) \ float  : fconstant  ( r "name" -- ) \ float
     Create f,      Create f,
 DOES> ( -- r )  DOES> ( -- r )
     f@ ;      f@ ;
Line 131 
Line 131 
     ENDIF ;      ENDIF ;
 IS interpreter-notfound  IS interpreter-notfound
   
 : fvariable ( -- )  : fvariable ( "name" -- ) \ float
     Create 0.0E0 f, ;      Create 0.0E0 f, ;
     \ does> ( -- f-addr )      \ does> ( -- f-addr )
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help