version 1.178, 2005/11/20 23:15:42
|
version 1.179, 2005/11/27 22:47:18
|
Line 2645 ffi-prep-closure ( a_ip a_cif a_closure
|
Line 2645 ffi-prep-closure ( a_ip a_cif a_closure
|
w = ffi_prep_closure(a_closure, a_cif, ffi_callback, a_ip); |
w = ffi_prep_closure(a_closure, a_cif, ffi_callback, a_ip); |
|
|
ffi-i@ ( a_addr -- n ) gforth ffi_ifetch |
ffi-i@ ( a_addr -- n ) gforth ffi_ifetch |
n = *(int*)(*a_addr); |
n = *(int*)(a_addr); |
|
|
ffi-i! ( n a_addr -- ) gforth ffi_istore |
ffi-i! ( n a_addr -- ) gforth ffi_istore |
*(int*)(a_addr) = n; |
*(int*)(a_addr) = n; |
Line 2655 ffi-2@ ( a_addr -- d ) gforth ffi_2fetch
|
Line 2655 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 |