version 1.267, 2012/03/13 19:33:31
|
version 1.270, 2012/03/18 15:49:14
|
Line 1849 gforth_LP=lp;
|
Line 1849 gforth_LP=lp;
|
#ifdef HAS_LINKBACK |
#ifdef HAS_LINKBACK |
((void (*)())w)(); |
((void (*)())w)(); |
#else |
#else |
((void (*)(void *))w)(gforth_pointers); |
((void (*)(void *))w)(&gforth_pointers); |
#endif |
#endif |
sp=gforth_SP; |
sp=gforth_SP; |
fp=gforth_FP; |
fp=gforth_FP; |
Line 2325 CLOBBER_TOS_WORKAROUND_END;
|
Line 2325 CLOBBER_TOS_WORKAROUND_END;
|
|
|
flnp1 ( r1 -- r2 ) float-ext f_l_n_p_one |
flnp1 ( r1 -- r2 ) float-ext f_l_n_p_one |
""@i{r2}=ln(@i{r1}+1)"" |
""@i{r2}=ln(@i{r1}+1)"" |
|
CLOBBER_TOS_WORKAROUND_START; |
#ifdef HAVE_LOG1P |
#ifdef HAVE_LOG1P |
extern double |
extern double |
#ifdef NeXT |
#ifdef NeXT |
Line 2335 r2 = log1p(r1);
|
Line 2336 r2 = log1p(r1);
|
#else |
#else |
r2 = log(r1+1.); |
r2 = log(r1+1.); |
#endif |
#endif |
|
CLOBBER_TOS_WORKAROUND_END; |
|
|
flog ( r1 -- r2 ) float-ext f_log |
flog ( r1 -- r2 ) float-ext f_log |
""The decimal logarithm."" |
""The decimal logarithm."" |
Line 2357 CLOBBER_TOS_WORKAROUND_END;
|
Line 2359 CLOBBER_TOS_WORKAROUND_END;
|
fsincos ( r1 -- r2 r3 ) float-ext f_sine_cos |
fsincos ( r1 -- r2 r3 ) float-ext f_sine_cos |
""@i{r2}=sin(@i{r1}), @i{r3}=cos(@i{r1})"" |
""@i{r2}=sin(@i{r1}), @i{r3}=cos(@i{r1})"" |
CLOBBER_TOS_WORKAROUND_START; |
CLOBBER_TOS_WORKAROUND_START; |
r2 = sin(r1); |
sincos(r1, &r2, &r3); |
r3 = cos(r1); |
|
CLOBBER_TOS_WORKAROUND_END; |
CLOBBER_TOS_WORKAROUND_END; |
|
|
fsqrt ( r1 -- r2 ) float-ext f_square_root |
fsqrt ( r1 -- r2 ) float-ext f_square_root |