[Win32forth-cvs] win32forth/src FLOAT.F,1.59,1.60

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv28242

Modified Files:
	FLOAT.F 
Log Message:
dofvalue! and dofvalue+! now use cfa-code. Added maxascii to support xchars (work in progress).

Index: FLOAT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v
retrieving revision 1.59
retrieving revision 1.60
diff -C2 -d -r1.59 -r1.60
*** FLOAT.F	15 May 2013 12:00:31 -0000	1.59
--- FLOAT.F	15 May 2013 17:22:11 -0000	1.60
***************
*** 427,441 ****
  internal
  
! code (dofvalue!  ( adr -- ) ( fs: r -- )
!     mov     ebx, -8 [ebx] [edi]
      fstack-check_1
      >FPU  \ to st(0)
!     fstp    FSIZE DATASTACK_MEMORY
      pop     ebx
      float;
  
! 
! code (dofvalue+!  ( adr -- ) ( fs: r -- )
!     mov     ebx, -12 [ebx] [edi]
      fstack-check_1
      >FPU
--- 427,442 ----
  internal
  
! cfa-code dofvalue!  ( fs: r -- )
!     push    ebx
!     mov     ebx, -4 [eax]
      fstack-check_1
      >FPU  \ to st(0)
!     fstp    FSIZE datastack_memory
      pop     ebx
      float;
  
! cfa-code dofvalue+! ( fs: r -- )
!     push    tos
!     mov     ebx, -8 [eax]
      fstack-check_1
      >FPU
***************
*** 446,452 ****
      float;
  
-   cfa-func dofvalue!  (dofvalue!  ;
-   cfa-func dofvalue+! (dofvalue+! ;
- 
  external
  
--- 447,450 ----