Diff for /gforth/prim between versions 1.177 and 1.182

version 1.177, 2005/09/27 13:50:43 version 1.182, 2005/12/11 19:31:48
Line 2444  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 -- u )      gforth wfetch
   u = *(UWyde*)(a_addr);
   
   sw@ ( a_addr -- u )     gforth swfetch
   u = *(Wyde*)(a_addr);
   
   w! ( u a_addr -- )      gforth wstore
   *(Wyde*)(a_addr) = u;
   
   l@ ( a_addr -- u )      gforth lfetch
   u = *(UTetrabyte*)(a_addr);
   
   sl@ ( a_addr -- u )     gforth slfetch
   u = *(Tetrabyte*)(a_addr);
   
   l! ( u a_addr -- )      gforth lstore
   *(Tetrabyte*)(a_addr) = u;
   
 \+FFCALL  \+FFCALL
   
 av-start-void   ( c_addr -- )   gforth  av_start_void  av-start-void   ( c_addr -- )   gforth  av_start_void
Line 2649  ffi-2@ ( a_addr -- d ) gforth ffi_2fetch Line 2667  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 2660  ffi-2! ( d a_addr -- ) gforth ffi_2store Line 2678  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 2679  r = *(float*)(*clist++); Line 2697  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;
   
 \+  \+
   

Removed from v.1.177  
changed lines
  Added in v.1.182


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