Diff for /gforth/prim between versions 1.185 and 1.186

version 1.185, 2006/01/05 01:37:31 version 1.186, 2006/01/28 17:55:31
Line 2444  gforth_FP=fp; Line 2444  gforth_FP=fp;
 sp=(Cell*)(SYSCALL(Cell*(*)(Cell *, void *))u)(sp, &gforth_FP);  sp=(Cell*)(SYSCALL(Cell*(*)(Cell *, void *))u)(sp, &gforth_FP);
 fp=gforth_FP;  fp=gforth_FP;
   
 w@ ( a_addr -- u )      gforth wfetch  uw@ ( c_addr -- u )     gforth u_w_fetch
 u = *(UWyde*)(a_addr);  ""@i{u} is the zero-extended 16-bit value stored at @i{c_addr}.""
   u = *(UWyde*)(c_addr);
 sw@ ( a_addr -- u )     gforth swfetch  
 u = *(Wyde*)(a_addr);  sw@ ( c_addr -- n )     gforth s_w_fetch
   ""@i{n} is the sign-extended 16-bit value stored at @i{c_addr}.""
 w! ( u a_addr -- )      gforth wstore  n = *(Wyde*)(c_addr);
 *(Wyde*)(a_addr) = u;  
   w! ( w c_addr -- )      gforth w_store
 l@ ( a_addr -- u )      gforth lfetch  ""Store the bottom 16 bits of @i{w} at @i{c_addr}.""
 u = *(UTetrabyte*)(a_addr);  *(Wyde*)(c_addr) = w;
   
 sl@ ( a_addr -- u )     gforth slfetch  ul@ ( c_addr -- u )     gforth u_l_fetch
 u = *(Tetrabyte*)(a_addr);  ""@i{u} is the zero-extended 32-bit value stored at @i{c_addr}.""
   u = *(UTetrabyte*)(c_addr);
 l! ( u a_addr -- )      gforth lstore  
 *(Tetrabyte*)(a_addr) = u;  sl@ ( c_addr -- n )     gforth s_l_fetch
   ""@i{n} is the sign-extended 32-bit value stored at @i{c_addr}.""
   n = *(Tetrabyte*)(c_addr);
   
   l! ( w c_addr -- )      gforth l_store
   ""Store the bottom 32 bits of @i{w} at @i{c_addr}.""
   *(Tetrabyte*)(c_addr) = w;
   
 \+FFCALL  \+FFCALL
   

Removed from v.1.185  
changed lines
  Added in v.1.186


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