Diff for /gforth/prim between versions 1.181 and 1.183

version 1.181, 2005/12/04 13:46:12 version 1.183, 2005/12/11 20:08:09
Line 2447  fp=FP; Line 2447  fp=FP;
 w@ ( a_addr -- u )      gforth wfetch  w@ ( a_addr -- u )      gforth wfetch
 u = *(UWyde*)(a_addr);  u = *(UWyde*)(a_addr);
   
 wx@ ( a_addr -- u )     gforth wxfetch  sw@ ( a_addr -- u )     gforth swfetch
 u = *(Wyde*)(a_addr);  u = *(Wyde*)(a_addr);
   
 w! ( u a_addr -- )      gforth wstore  w! ( u a_addr -- )      gforth wstore
 *(Wyde*)(a_addr) = u;  *(Wyde*)(a_addr) = u;
   
 t@ ( a_addr -- u )      gforth tfetch  l@ ( a_addr -- u )      gforth lfetch
 u = *(UTetrabyte*)(a_addr);  u = *(UTetrabyte*)(a_addr);
   
 tx@ ( a_addr -- u )     gforth txfetch  sl@ ( a_addr -- u )     gforth slfetch
 u = *(Tetrabyte*)(a_addr);  u = *(Tetrabyte*)(a_addr);
   
 t! ( u a_addr -- )      gforth tstore  l! ( u a_addr -- )      gforth lstore
 *(Tetrabyte*)(a_addr) = u;  *(Tetrabyte*)(a_addr) = u;
   
 \+FFCALL  \+FFCALL
Line 2657  ffi-prep-cif ( a_atypes n a_rtype a_cif Line 2657  ffi-prep-cif ( a_atypes n a_rtype a_cif
 w = ffi_prep_cif(a_cif, FFI_DEFAULT_ABI, n, a_rtype, a_atypes);  w = ffi_prep_cif(a_cif, FFI_DEFAULT_ABI, n, a_rtype, a_atypes);
   
 ffi-call ( a_avalues a_rvalue a_ip a_cif -- )   gforth ffi_call  ffi-call ( a_avalues a_rvalue a_ip a_cif -- )   gforth ffi_call
   SAVE_REGS
 ffi_call(a_cif, a_ip, a_rvalue, a_avalues);  ffi_call(a_cif, a_ip, a_rvalue, a_avalues);
   REST_REGS
   
 ffi-prep-closure ( a_ip a_cif a_closure -- w )  gforth ffi_prep_closure  ffi-prep-closure ( a_ip a_cif a_closure -- w )  gforth ffi_prep_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);

Removed from v.1.181  
changed lines
  Added in v.1.183


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