gforth/prim - diff

Return to prim CVS log

Up to [gforth] / gforth

version 1.268, 2012/03/17 22:18:59	version 1.271, 2012/04/12 16:11:40
Line 2026 free(string);	Line 2026 free(string);

newline ( -- c_addr u ) gforth	newline ( -- c_addr u ) gforth
""String containing the newline sequence of the host OS""	""String containing the newline sequence of the host OS""
char newline[] = {	static const char newline[] = {
#if DIRSEP=='/'	#if DIRSEP=='/'
/* Unix */	/* Unix */
'\n'	'\n'
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