[gforth] / gforth / float.fs  

gforth: gforth/float.fs

Diff for /gforth/float.fs between version 1.58 and 1.59

version 1.58, Fri Dec 31 18:09:02 2010 UTC version 1.59, Thu Oct 6 20:04:35 2011 UTC
Line 141 
Line 141 
         2drop false          2drop false
     THEN ;      THEN ;
   
   [ifdef] recognizer:
       ' noop
       :noname postpone Fliteral ;
       dup
       recognizer: r:fnumber
   
       :noname ( addr u -- nt int-table true | addr u false )
       2dup sfnumber  dup
       IF
           drop 2drop r:fnumber  true
       THEN ; Constant fnum-recognizer
   
   fnum-recognizer
   forth-recognizer get-recognizers
   1+ forth-recognizer set-recognizers
   [else]
 [ifundef] compiler-notfound1  [ifundef] compiler-notfound1
 defer compiler-notfound1  defer compiler-notfound1
 ' no.extensions IS compiler-notfound1  ' no.extensions IS compiler-notfound1
Line 170 
Line 186 
         defers interpreter-notfound1          defers interpreter-notfound1
     ENDIF ;      ENDIF ;
 IS interpreter-notfound1  IS interpreter-notfound1
   [then]
   
 : fvariable ( "name" -- ) \ float f-variable  : fvariable ( "name" -- ) \ float f-variable
     Create 0.0E0 f, ;      Create 0.0E0 f, ;

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help