Diff for /gforth/prim between versions 1.180 and 1.182

version 1.180, 2005/12/03 15:15:20 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 -- n )      gforth wfetch  w@ ( a_addr -- u )      gforth wfetch
 n = *(short*)(a_addr);  u = *(UWyde*)(a_addr);
   
 w! ( n a_addr -- )      gforth wstore  sw@ ( a_addr -- u )     gforth swfetch
 *(short*)(a_addr) = n;  u = *(Wyde*)(a_addr);
   
 t@ ( a_addr -- n )      gforth tfetch  w! ( u a_addr -- )      gforth wstore
 n = *(int*)(a_addr);  *(Wyde*)(a_addr) = u;
   
 t! ( n a_addr -- )      gforth tstore  l@ ( a_addr -- u )      gforth lfetch
 *(int*)(a_addr) = n;  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
   

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


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