gforth/float.fs - diff

Return to float.fs CVS log

Up to [gforth] / gforth

Diff for /gforth/float.fs between versions 1.7 and 1.10

version 1.7, 1994/08/25 15:25:23	version 1.10, 1995/01/18 18:41:35
Line 6	Line 6
' align Alias sfalign	' align Alias sfalign
' aligned Alias sfaligned	' aligned Alias sfaligned
[ELSE]	[ELSE]
: sfloats 4 * ;	: sfloats 2* 2* ;
: sfloat+ 4 + ;	: sfloat+ 4 + ;
: sfaligned ( addr -- addr' ) 3 + -4 and ;	: sfaligned ( addr -- addr' ) 3 + -4 and ;
: sfalign ( -- ) here dup sfaligned swap ?DO bl c, LOOP ;	: sfalign ( -- ) here dup sfaligned swap ?DO bl c, LOOP ;
Line 18	Line 18
' falign Alias dfalign	' falign Alias dfalign
' faligned Alias dfaligned	' faligned Alias dfaligned
[ELSE]	[ELSE]
: dfloats 8 * ;	: dfloats 2* 2* 2* ;
: dfloat+ 8 + ;	: dfloat+ 8 + ;
: dfaligned ( addr -- addr' ) 7 + -8 and ;	: dfaligned ( addr -- addr' ) 7 + -8 and ;
: dfalign ( -- ) here dup dfaligned swap ?DO bl c, LOOP ;	: dfalign ( -- ) here dup dfaligned swap ?DO bl c, LOOP ;
Line 89	Line 89
: f2/ 2e0 f/ ;	: f2/ 2e0 f/ ;
: 1/f 1e0 fswap f/ ;	: 1/f 1e0 fswap f/ ;

: falog ( f -- 10^f ) [ 10e0 fln ] FLiteral f* fexp ;

: fsinh fexpm1 fdup fdup 1e0 f+ f/ f+ f2/ ;	\ We now have primitives for these, so we need not define them
: fcosh fexp fdup 1/f f+ f2/ ;
: ftanh f2* fexpm1 fdup 2e0 f+ f/ ;	\ : falog ( f -- 10^f ) [ 10e0 fln ] FLiteral f* fexp ;

: fatanh fdup f0< >r fabs 1e0 fover f- f/ f2* flnp1 f2/	\ : fsinh fexpm1 fdup fdup 1e0 f+ f/ f+ f2/ ;
r> IF fnegate THEN ;	\ : fcosh fexp fdup 1/f f+ f2/ ;
: facosh fdup fdup f* 1e0 f- fsqrt f+ fln ;	\ : ftanh f2* fexpm1 fdup 2e0 f+ f/ ;
: fasinh fdup fdup f* 1e0 f+ fsqrt f/ fatanh ;
	\ : fatanh fdup f0< >r fabs 1e0 fover f- f/ f2* flnp1 f2/
	\ r> IF fnegate THEN ;
	\ : facosh fdup fdup f* 1e0 f- fsqrt f+ fln ;
	\ : fasinh fdup fdup f* 1e0 f+ fsqrt f/ fatanh ;

	: f.s ." <" fdepth 0 .r ." > " fdepth 0 max maxdepth-.s @ min dup 0
	?DO dup i - 1- floats fp@ + f@ f. LOOP drop ;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.7
changed lines
	Added in v.1.10