[gforth] / gforth / float.fs  

gforth: gforth/float.fs

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

version 1.56, Thu Dec 31 15:32:35 2009 UTC version 1.59, Thu Oct 6 20:04:35 2011 UTC
Line 1 
Line 1 
 \ High level floating point                            14jan94py  \ High level floating point                            14jan94py
   
 \ Copyright (C) 1995,1997,2003,2004,2005,2006,2007,2009 Free Software Foundation, Inc.  \ Copyright (C) 1995,1997,2003,2004,2005,2006,2007,2009,2010 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
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, ;
Line 233 
Line 250 
         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.59
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help