Diff for /gforth/prim between versions 1.178 and 1.179

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

Removed from v.1.178  
changed lines
  Added in v.1.179


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>