version 1.176, 2005/09/03 07:49:02
|
version 1.180, 2005/12/03 15:15:20
|
Line 2002 dsystem = DZERO;
|
Line 2002 dsystem = DZERO;
|
comparisons(f, r1 r2, f_, r1, r2, gforth, gforth, float, gforth) |
comparisons(f, r1 r2, f_, r1, r2, gforth, gforth, float, gforth) |
comparisons(f0, r, f_zero_, r, 0., float, gforth, float, gforth) |
comparisons(f0, r, f_zero_, r, 0., float, gforth, float, gforth) |
|
|
|
s>f ( n -- r ) float s_to_f |
|
r = n; |
|
|
d>f ( d -- r ) float d_to_f |
d>f ( d -- r ) float d_to_f |
#ifdef BUGGY_LL_D2F |
#ifdef BUGGY_LL_D2F |
extern double ldexp(double x, int exp); |
extern double ldexp(double x, int exp); |
Line 2022 f>d ( r -- d ) float f_to_d
|
Line 2025 f>d ( r -- d ) float f_to_d
|
extern DCell double2ll(Float r); |
extern DCell double2ll(Float r); |
d = double2ll(r); |
d = double2ll(r); |
|
|
|
f>s ( r -- n ) float f_to_s |
|
n = (Cell)r; |
|
|
f! ( r f_addr -- ) float f_store |
f! ( r f_addr -- ) float f_store |
""Store @i{r} into the float at address @i{f-addr}."" |
""Store @i{r} into the float at address @i{f-addr}."" |
*f_addr = r; |
*f_addr = r; |
Line 2080 f** ( r1 r2 -- r3 ) float-ext f_star_sta
|
Line 2086 f** ( r1 r2 -- r3 ) float-ext f_star_sta
|
""@i{r3} is @i{r1} raised to the @i{r2}th power."" |
""@i{r3} is @i{r1} raised to the @i{r2}th power."" |
r3 = pow(r1,r2); |
r3 = pow(r1,r2); |
|
|
|
fm* ( r1 n -- r2 ) gforth fm_star |
|
r2 = r1*n; |
|
|
|
fm/ ( r1 n -- r2 ) gforth fm_slash |
|
r2 = r1/n; |
|
|
|
fm*/ ( r1 n1 n2 -- r2 ) gforth fm_star_slash |
|
r2 = (r1*n1)/n2; |
|
|
|
f**2 ( r1 -- r2 ) gforth fm_square |
|
r2 = r1*r1; |
|
|
fnegate ( r1 -- r2 ) float f_negate |
fnegate ( r1 -- r2 ) float f_negate |
r2 = - r1; |
r2 = - r1; |
|
|
Line 2426 FP=fp;
|
Line 2444 FP=fp;
|
sp=(Cell*)(SYSCALL(Cell*(*)(Cell *, void *))u)(sp, &FP); |
sp=(Cell*)(SYSCALL(Cell*(*)(Cell *, void *))u)(sp, &FP); |
fp=FP; |
fp=FP; |
|
|
|
w@ ( a_addr -- n ) gforth wfetch |
|
n = *(short*)(a_addr); |
|
|
|
w! ( n a_addr -- ) gforth wstore |
|
*(short*)(a_addr) = n; |
|
|
|
t@ ( a_addr -- n ) gforth tfetch |
|
n = *(int*)(a_addr); |
|
|
|
t! ( n a_addr -- ) gforth tstore |
|
*(int*)(a_addr) = n; |
|
|
\+FFCALL |
\+FFCALL |
|
|
av-start-void ( c_addr -- ) gforth av_start_void |
av-start-void ( c_addr -- ) gforth av_start_void |
Line 2631 ffi-2@ ( a_addr -- d ) gforth ffi_2fetch
|
Line 2661 ffi-2@ ( a_addr -- d ) gforth ffi_2fetch
|
DLO_IS(d, (Cell*)(*a_addr)); |
DLO_IS(d, (Cell*)(*a_addr)); |
DHI_IS(d, 0); |
DHI_IS(d, 0); |
#else |
#else |
d = *(DCell*)(*a_addr); |
d = *(DCell*)(a_addr); |
#endif |
#endif |
|
|
ffi-2! ( d a_addr -- ) gforth ffi_2store |
ffi-2! ( d a_addr -- ) gforth ffi_2store |
Line 2642 ffi-2! ( d a_addr -- ) gforth ffi_2store
|
Line 2672 ffi-2! ( d a_addr -- ) gforth ffi_2store
|
#endif |
#endif |
|
|
ffi-arg-int ( -- w ) gforth ffi_arg_int |
ffi-arg-int ( -- w ) gforth ffi_arg_int |
w = *(Cell*)(*clist++); |
w = *(int *)(*clist++); |
|
|
ffi-arg-longlong ( -- d ) gforth ffi_arg_longlong |
ffi-arg-longlong ( -- d ) gforth ffi_arg_longlong |
#ifdef BUGGY_LONG_LONG |
#ifdef BUGGY_LONG_LONG |
Line 2661 r = *(float*)(*clist++);
|
Line 2691 r = *(float*)(*clist++);
|
ffi-arg-double ( -- r ) gforth ffi_arg_double |
ffi-arg-double ( -- r ) gforth ffi_arg_double |
r = *(double*)(*clist++); |
r = *(double*)(*clist++); |
|
|
ffi-ret-int ( -- w ) gforth ffi_ret_int |
ffi-ret-void ( -- ) gforth ffi_ret_void |
|
return 0; |
|
|
|
ffi-ret-int ( w -- ) gforth ffi_ret_int |
*(int*)(ritem) = w; |
*(int*)(ritem) = w; |
|
return 0; |
|
|
ffi-ret-longlong ( -- d ) gforth ffi_ret_longlong |
ffi-ret-longlong ( d -- ) gforth ffi_ret_longlong |
#ifdef BUGGY_LONG_LONG |
#ifdef BUGGY_LONG_LONG |
*(Cell*)(ritem) = DLO(d); |
*(Cell*)(ritem) = DLO(d); |
#else |
#else |
*(DCell*)(ritem) = d; |
*(DCell*)(ritem) = d; |
#endif |
#endif |
|
return 0; |
|
|
ffi-ret-ptr ( -- c_addr ) gforth ffi_ret_ptr |
ffi-ret-ptr ( c_addr -- ) gforth ffi_ret_ptr |
*(char **)(ritem) = c_addr; |
*(char **)(ritem) = c_addr; |
|
return 0; |
|
|
ffi-ret-float ( -- r ) gforth ffi_ret_float |
ffi-ret-float ( r -- ) gforth ffi_ret_float |
*(float*)(ritem) = r; |
*(float*)(ritem) = r; |
|
return 0; |
|
|
ffi-ret-double ( -- r ) gforth ffi_ret_double |
ffi-ret-double ( r -- ) gforth ffi_ret_double |
*(double*)(ritem) = r; |
*(double*)(ritem) = r; |
|
return 0; |
|
|
\+ |
\+ |
|
|