[Win32forth-cvs] win32forth/src FLOAT.F,1.17,1.18

[Dirk B. <db...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19414/src

Modified Files:
	FLOAT.F 
Log Message:
removed the deprecated-state from 1/F because it seems that it's widly used (e.g. it's used in David N. Williams complex math lexicon)

Index: FLOAT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** FLOAT.F	31 Aug 2005 09:04:49 -0000	1.17
--- FLOAT.F	3 Sep 2005 09:02:38 -0000	1.18
***************
*** 157,161 ****
                  fld     FSIZE FSTACK_MEMORY
                  fxam
!                 fstsw   ax  
                  mov     ebx, eax
                  and     ebx, # FPU_STATUS_CCF_MASK
--- 157,161 ----
                  fld     FSIZE FSTACK_MEMORY
                  fxam
!                 fstsw   ax
                  mov     ebx, eax
                  and     ebx, # FPU_STATUS_CCF_MASK
***************
*** 235,242 ****
  \ Subroutine to check the depth of the float stack for underflow errors.
  \ Input: eax = number of floats we need
! subr:   fstack-check 
!                 
  B/FLOAT 10 = [IF]
!                 lea eax, 0 [eax*4] [eax] 
                  add eax, eax
           [ELSE] shl eax, # 3
--- 235,242 ----
  \ Subroutine to check the depth of the float stack for underflow errors.
  \ Input: eax = number of floats we need
! subr:   fstack-check
! 
  B/FLOAT 10 = [IF]
!                 lea eax, 0 [eax*4] [eax]
                  add eax, eax
           [ELSE] shl eax, # 3
***************
*** 410,414 ****
  code fpop       ( f: -- r )   ( fs: r -- )  \ move from simulated stack on FPU stack
                  fstack-check_1
!                 
                  >FPU
  
--- 410,414 ----
  code fpop       ( f: -- r )   ( fs: r -- )  \ move from simulated stack on FPU stack
                  fstack-check_1
! 
                  >FPU
  
***************
*** 418,424 ****
  code FDROP      ( fs: r -- )
                  fstack-check_1
!  
                  sub     FSP_MEMORY , # B/FLOAT
!         
                  next,
                  end-code
--- 418,424 ----
  code FDROP      ( fs: r -- )
                  fstack-check_1
! 
                  sub     FSP_MEMORY , # B/FLOAT
! 
                  next,
                  end-code
***************
*** 426,434 ****
  code FDUP       ( fs: r -- r r )
                  fstack-check_1
!                 
  \ TODO optimize
                  (>FPU)
                  FPU>
!         
                  next,
                  end-code
--- 426,434 ----
  code FDUP       ( fs: r -- r r )
                  fstack-check_1
! 
  \ TODO optimize
                  (>FPU)
                  FPU>
! 
                  next,
                  end-code
***************
*** 436,440 ****
  code FSWAP      ( fs: r1 r2 -- r2 r1 )
                  fstack-check_2
!         
  \ TODO optimize
                  2>FPU
--- 436,440 ----
  code FSWAP      ( fs: r1 r2 -- r2 r1 )
                  fstack-check_2
! 
  \ TODO optimize
                  2>FPU
***************
*** 442,446 ****
                  FPU>
                  FPU>
!         
                  next,
                  end-code
--- 442,446 ----
                  FPU>
                  FPU>
! 
                  next,
                  end-code
***************
*** 1051,1055 ****
  code (fsin)     ( f: r1 -- r2 )
                  fstack-check_1
!                 
                  >FPU
                  fsin
--- 1051,1055 ----
  code (fsin)     ( f: r1 -- r2 )
                  fstack-check_1
! 
                  >FPU
                  fsin
***************
*** 1061,1065 ****
  code (fcos)     ( f: r1 -- r2 )
                  fstack-check_1
!                 
                  >FPU
                  fcos
--- 1061,1065 ----
  code (fcos)     ( f: r1 -- r2 )
                  fstack-check_1
! 
                  >FPU
                  fcos
***************
*** 1071,1075 ****
  code (fsincos)  ( f: r1 -- r2 r3 )
                  fstack-check_1
!                 
                  >FPU
                  fsincos
--- 1071,1075 ----
  code (fsincos)  ( f: r1 -- r2 r3 )
                  fstack-check_1
! 
                  >FPU
                  fsincos
***************
*** 1796,1800 ****
  
               zerochar @                                 \ optimization, mantissa=0
!              IF   drop f0.0 mantsign @ if fnegate then 
                    true EXIT                             \ then whole number is zero
               THEN
--- 1796,1800 ----
  
               zerochar @                                 \ optimization, mantissa=0
!              IF   drop f0.0 mantsign @ if fnegate then
                    true EXIT                             \ then whole number is zero
               THEN
***************
*** 1848,1852 ****
               true
          ELSE
!              r>drop 2drop fdrop false 
          THEN ;
  
--- 1848,1852 ----
               true
          ELSE
!              r>drop 2drop fdrop false
          THEN ;
  
***************
*** 2045,2049 ****
  synonym fsqr fsqrt deprecated
  
! : 1/f           -1 f**n ; deprecated
  
  : f>r           r> rp@ b/float - rp! rp@ f! >r ; deprecated
--- 2045,2049 ----
  synonym fsqr fsqrt deprecated
  
! : 1/f           -1 f**n ;
  
  : f>r           r> rp@ b/float - rp! rp@ f! >r ; deprecated