Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv13216
Modified Files:
FLOAT.F
Log Message:
Minor doc changes
Index: FLOAT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v
retrieving revision 1.50
retrieving revision 1.51
diff -C2 -d -r1.50 -r1.51
*** FLOAT.F 15 May 2008 04:28:26 -0000 1.50
--- FLOAT.F 28 Jun 2008 20:40:31 -0000 1.51
***************
*** 1929,1933 ****
float;
! : rep-normal ( addr u -- n true ; fs: r -- )
1 max 2dup [char] 0 fill 18 umin
fdup flog floor f>s 1+ dup>r over -
--- 1929,1933 ----
float;
! : rep-normal ( addr u -- n true ; fs: r -- ) \ handle normal floats in REPRESENT.
1 max 2dup [char] 0 fill 18 umin
fdup flog floor f>s 1+ dup>r over -
***************
*** 1949,1953 ****
\ ' rep-normal alias rep-denormal \ made a colon def - [cdo-2008May13]
! : rep-denormal \ synonym of REP-NORMAL
rep-normal ;
--- 1949,1954 ----
\ ' rep-normal alias rep-denormal \ made a colon def - [cdo-2008May13]
! : rep-denormal ( addr u -- n true ; fs: r -- ) \ handle denormal floats in REPRESENT
! \ (which is the same action as for normal floats).
rep-normal ;
|
