[Win32forth-cvs] win32forth/src FLOAT.F, 1.61, 1.62 imageman.f, 1.32, 1.33

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

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

Modified Files:
	FLOAT.F imageman.f 
Log Message:
Minor tidy up

Index: FLOAT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v
retrieving revision 1.61
retrieving revision 1.62
diff -C2 -d -r1.61 -r1.62
*** FLOAT.F	14 Jun 2013 01:02:35 -0000	1.61
--- FLOAT.F	14 Aug 2013 19:02:37 -0000	1.62
***************
*** 310,315 ****
  \ macro to end float words
  macro: float;
!                 fsp-adjust if
!                 add     ecx,  # fsp-adjust
                  mov     FSP_MEMORY , ecx
                  0 to fsp-adjust then
--- 310,316 ----
  \ macro to end float words
  macro: float;
!                 fsp-adjust if fsp-adjust 0< if
!                 sub     ecx,  # fsp-adjust negate
!            else add     ecx,  # fsp-adjust then
                  mov     FSP_MEMORY , ecx
                  0 to fsp-adjust then
***************
*** 575,580 ****
  \ *G Remove r from the floating-point stack.
                  fstack-check_1
!                 sub     ecx , # B/FLOAT
!                 mov     FSP_MEMORY , ecx
                  float;
  
--- 576,580 ----
  \ *G Remove r from the floating-point stack.
                  fstack-check_1
!                 -fsp-adjust
                  float;
  
***************
*** 654,659 ****
  \ *G Remove the top 2 FP stack entries.
                  fstack-check_2
!                 sub     ecx , # B/FLOAT 2*
!                 mov     FSP_MEMORY , ecx
                  float;
  
--- 654,659 ----
  \ *G Remove the top 2 FP stack entries.
                  fstack-check_2
!                 -fsp-adjust
!                 -fsp-adjust
                  float;
  

Index: imageman.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/imageman.f,v
retrieving revision 1.32
retrieving revision 1.33
diff -C2 -d -r1.32 -r1.33
*** imageman.f	20 Mar 2013 23:51:21 -0000	1.32
--- imageman.f	14 Aug 2013 19:02:37 -0000	1.33
***************
*** 881,885 ****
  
                  exception@
!                 if   CMDLINE drop OFF               \ reset commandline
                       s" Exception occured in Forth initialization" MsgBox
                       \ .exception ?
--- 881,885 ----
  
                  exception@
!                 if   Empty-command-line               \ reset commandline
                       s" Exception occured in Forth initialization" MsgBox
                       \ .exception ?