[Win32forth-cvs] win32forth/src/lib/fmacro FMACRO.F,1.5,1.6

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth/src/lib/fmacro
In directory vz-cvs-4.sog:/tmp/cvs-serv16132

Modified Files:
	FMACRO.F 
Log Message:
Jos a small bugfix.

Index: FMACRO.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/fmacro/FMACRO.F,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** FMACRO.F	18 Dec 2011 14:26:03 -0000	1.5
--- FMACRO.F	17 Jan 2012 21:40:58 -0000	1.6
***************
*** 1,5 ****
  \ needs src\old\optimize.f \ load the optimizer here when you would like to see its effect.
  
! anew fmacro.f \ December 26th, 2004 by J.v.d.Ven
  
  ((
--- 1,5 ----
  \ needs src\old\optimize.f \ load the optimizer here when you would like to see its effect.
  
! anew fmacro.f \ January 17th, 2012  by J.v.d.Ven
  
  ((
***************
*** 173,177 ****
                      when you are using the user-area.
  December 18th, 2011 addr@+ addr@< faddr@  faddr! are now also able to use the user-area
! 
  ))
  
--- 173,177 ----
                      when you are using the user-area.
  December 18th, 2011 addr@+ addr@< faddr@  faddr! are now also able to use the user-area
! January  17th, 2012 Bugfix in FLD_extended|double_[edx] and FSTP_extended|double_[edx]
  ))
  
***************
*** 223,227 ****
  B/FLOAT 10 =
  [IF]    $AFDB to FLD_extended|double       $BFDB to FSTP_extended|double
!         $AADD to FLD_extended|double_[edx] $BADD to FSTP_extended|double_[edx]
  [ELSE]  $87DD to FLD_extended|double       $9FDD to FSTP_extended|double
          $82DD to FLD_extended|double_[edx] $9ADD to FSTP_extended|double_[edx]
--- 223,227 ----
  B/FLOAT 10 =
  [IF]    $AFDB to FLD_extended|double       $BFDB to FSTP_extended|double
!         $AADB to FLD_extended|double_[edx] $BADB to FSTP_extended|double_[edx]
  [ELSE]  $87DD to FLD_extended|double       $9FDD to FSTP_extended|double
          $82DD to FLD_extended|double_[edx] $9ADD to FSTP_extended|double_[edx]
***************
*** 1016,1037 ****
  
  
!  ((  >>> Disable or delete this line to run the following BM test
  
  
  \ needs profiler.f
  
! \  B/FLOAT newuser t1
!  fvariable t1
  fvariable t2
  fvariable t3
  
! 99 t1 !
! 20001e t2 f!
  
  
  
  code BM
!      addr t1
! \     t1 faddr@+
  \     t1 faddr!
     next,   end-code
--- 1016,1037 ----
  
  
!  ((  >>> Disable or delete this line to run the following BM test section
  
  
  \ needs profiler.f
  
!   B/FLOAT newuser t1
! \ fvariable t1
  fvariable t2
  fvariable t3
  
! \ 99 t1 !
! 20001e t1 f!
  
  
  
  code BM
!       s>f t1 faddr!
! \     t1  faddr@
  \     t1 faddr!
     next,   end-code
***************
*** 1040,1044 ****
   see bm
  
! : x11   3 bm @ .s ;
  
   cr   x11  .s
--- 1040,1044 ----
   see bm
  
! : x11   20001 bm  t1 f@ f. ;
  
   cr   x11  .s