version 1.195, 2006/06/09 15:51:24
|
version 1.196, 2006/10/13 17:15:27
|
Line 2766 ffi-ret-dlong ( d -- ) gforth ffi_ret_dl
|
Line 2766 ffi-ret-dlong ( d -- ) gforth ffi_ret_dl
|
return 0; |
return 0; |
|
|
ffi-ret-long ( n -- ) gforth ffi_ret_long |
ffi-ret-long ( n -- ) gforth ffi_ret_long |
#ifdef BUGGY_LONG_LONG |
|
*(Cell*)(gforth_ritem) = DLO(n); |
|
#else |
|
*(Cell*)(gforth_ritem) = n; |
*(Cell*)(gforth_ritem) = n; |
#endif |
|
return 0; |
return 0; |
|
|
ffi-ret-ptr ( c_addr -- ) gforth ffi_ret_ptr |
ffi-ret-ptr ( c_addr -- ) gforth ffi_ret_ptr |