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 -- )
|
