Diff for /gforth/float.fs between versions 1.44 and 1.48

version 1.44, 2004/12/08 11:05:08 version 1.48, 2005/12/31 15:46:08
Line 1 Line 1
 \ High level floating point                            14jan94py  \ High level floating point                            14jan94py
   
 \ Copyright (C) 1995,1997,2003 Free Software Foundation, Inc.  \ Copyright (C) 1995,1997,2003,2004,2005 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
Line 142  require debugs.fs Line 142  require debugs.fs
         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, ;
Line 232  set-current Line 244  set-current
   
 : FMOD ( r1 r2 -- r )  : FMOD ( r1 r2 -- r )
     \ remainder of r1/r2      \ remainder of r1/r2
     \ !! should be implemented properly  
     FOVER FOVER F/ ftrunc F* F- ;      FOVER FOVER F/ ftrunc F* F- ;

Removed from v.1.44  
changed lines
  Added in v.1.48


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>