[Win32forth-cvs] win32forth/src FLOAT.F,1.9,1.10

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

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

Modified Files:
	FLOAT.F 
Log Message:
gah: modified rep-zero to correctly give exponent of 1 to correct bug in represent; FE. also gives better results as well

Index: FLOAT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** FLOAT.F	7 Jun 2005 15:59:27 -0000	1.9
--- FLOAT.F	25 Jun 2005 16:29:02 -0000	1.10
***************
*** 26,29 ****
--- 26,30 ----
  \ gah Thursday, May 19 2005 optimized fdrop and f2drop for better decoding
  \ gah Thursday, May 26 2005 added macro 2>FPU
+ \ gah Saturday, June 25 2005 modified rep-zero to correct bug in represent
  \ -------------------------------------------------------------------------
  
***************
*** 1592,1597 ****
  \ February 6th, 1996 - 18:05 tjz added 'FDROP' to the following def to
  \ correct for a floating point zero left on the stack during E. and F.S
! : rep-zero      ( addr u -- 0 true )  ( f: r -- )
!                 ascii 0 fill 0 true fdrop ;
  
  : rep-spec      ( addr u cstr -- n false )  ( f: r -- )
--- 1593,1598 ----
  \ February 6th, 1996 - 18:05 tjz added 'FDROP' to the following def to
  \ correct for a floating point zero left on the stack during E. and F.S
! : rep-zero      ( addr u -- 1 true )  ( f: r -- )
!                 ascii 0 fill 1 true fdrop ;
  
  : rep-spec      ( addr u cstr -- n false )  ( f: r -- )