[gforth] / gforth / float.fs  

gforth: gforth/float.fs

Diff for /gforth/float.fs between version 1.46 and 1.47

version 1.46, Fri Dec 31 13:23:57 2004 UTC version 1.47, Tue Jun 28 06:45:07 2005 UTC
Line 142 
Line 142 
         2drop false          2drop false
     THEN ;      THEN ;
   
 :noname ( c-addr u -- )  [ifundef] compiler-notfound1
   defer compiler-notfound1
   ' no.extensions IS compiler-notfound1
   
   :noname compiler-notfound1 execute ; is compiler-notfound
   
   defer interpreter-notfound1
   ' no.extensions IS interpreter-notfound1
   
   :noname interpreter-notfound1 execute ; is interpreter-notfound
   [then]
   
   :noname ( c-addr u -- ... xt )
     2dup sfnumber      2dup sfnumber
     IF      IF
         2drop POSTPONE FLiteral          2drop [comp'] FLiteral
     ELSE      ELSE
         defers compiler-notfound          defers compiler-notfound1
     ENDIF ;      ENDIF ;
 IS compiler-notfound  IS compiler-notfound1
   
 :noname ( c-addr u -- r )  :noname ( c-addr u -- ... xt )
     2dup sfnumber      2dup sfnumber
     IF      IF
         2drop          2drop ['] noop
     ELSE      ELSE
         defers interpreter-notfound          defers interpreter-notfound1
     ENDIF ;      ENDIF ;
 IS interpreter-notfound  IS interpreter-notfound1
   
 : 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.46  
changed lines
  Added in v.1.47
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help