version 1.269, 2012/03/17 23:38:36
|
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 2359 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 |