--- gforth/float.fs 1995/02/08 13:38:51 1.14 +++ gforth/float.fs 1995/08/27 19:56:29 1.15 @@ -82,28 +82,28 @@ ' sfnumber IS notfound : fvariable ( -- ) - Create 0e0 f, ; + Create 0.0E0 f, ; \ does> ( -- f-addr ) -1e0 fasin 2e0 f* fconstant pi +1.0e0 fasin 2.0e0 f* fconstant pi -: f2* 2e0 f* ; -: f2/ .5e0 f* ; -: 1/f 1e0 fswap f/ ; +: f2* 2.0e0 f* ; +: f2/ 0.5e0 f* ; +: 1/f 1.0e0 fswap f/ ; \ We now have primitives for these, so we need not define them -\ : falog ( f -- 10^f ) [ 10e0 fln ] FLiteral f* fexp ; +\ : falog ( f -- 10^f ) [ 10.0e0 fln ] FLiteral f* fexp ; -\ : fsinh fexpm1 fdup fdup 1e0 f+ f/ f+ f2/ ; +\ : fsinh fexpm1 fdup fdup 1.0e0 f+ f/ f+ f2/ ; \ : fcosh fexp fdup 1/f f+ f2/ ; -\ : ftanh f2* fexpm1 fdup 2e0 f+ f/ ; +\ : ftanh f2* fexpm1 fdup 2.0e0 f+ f/ ; -\ : fatanh fdup f0< >r fabs 1e0 fover f- f/ f2* flnp1 f2/ +\ : fatanh fdup f0< >r fabs 1.0e0 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 ; +\ : facosh fdup fdup f* 1.0e0 f- fsqrt f+ fln ; +\ : fasinh fdup fdup f* 1.0e0 f+ fsqrt f/ fatanh ; : f~ ( f1 f2 f3 -- flag ) fdup f0= IF fdrop f= EXIT THEN fdup f0> IF frot frot f- fabs fswap