Diff for /gforth/prim between versions 1.252 and 1.253

version 1.252, 2010/07/11 19:56:00 version 1.253, 2010/08/20 20:17:28
Line 2538  c_addr[2] = w >> 16; Line 2538  c_addr[2] = w >> 16;
 c_addr[1] = w >> 8;  c_addr[1] = w >> 8;
 c_addr[0] = w;  c_addr[0] = w;
   
 be-w@ ( c_addr -- u )   gforth w_fetch_be  be-uw@ ( c_addr -- u )  gforth w_fetch_be
 ""@i{u} is the zero-extended 16-bit big endian value stored at @i{c_addr}.""  ""@i{u} is the zero-extended 16-bit big endian value stored at @i{c_addr}.""
 u = (c_addr[0] << 8) | (c_addr[1]);  u = (c_addr[0] << 8) | (c_addr[1]);
   
 be-l@ ( c_addr -- u )   gforth l_fetch_be  be-ul@ ( c_addr -- u )  gforth l_fetch_be
 ""@i{u} is the zero-extended 32-bit big endian value stored at @i{c_addr}.""  ""@i{u} is the zero-extended 32-bit big endian value stored at @i{c_addr}.""
 u = (c_addr[0] << 24) | (c_addr[1] << 16) | (c_addr[2] << 8) | (c_addr[3]);  u = (c_addr[0] << 24) | (c_addr[1] << 16) | (c_addr[2] << 8) | (c_addr[3]);
   
 be-x@ ( c_addr -- u )   gforth x_fetch_be  be-ux@ ( c_addr -- u )  gforth x_fetch_be
 ""@i{u} is the zero-extended 64-bit big endian value stored at @i{c_addr}.""  ""@i{u} is the zero-extended 64-bit big endian value stored at @i{c_addr}.""
 u = (((Cell)(c_addr[0]) << 56) |  u = (((Cell)(c_addr[0]) << 56) |
      ((Cell)(c_addr[1]) << 48) |       ((Cell)(c_addr[1]) << 48) |
Line 2557  u = (((Cell)(c_addr[0]) << 56) | Line 2557  u = (((Cell)(c_addr[0]) << 56) |
      ((Cell)(c_addr[6]) << 8) |       ((Cell)(c_addr[6]) << 8) |
      ((Cell)(c_addr[7])));       ((Cell)(c_addr[7])));
   
 le-w@ ( c_addr -- u )   gforth w_fetch_le  le-uw@ ( c_addr -- u )  gforth w_fetch_le
 ""@i{u} is the zero-extended 16-bit little endian value stored at @i{c_addr}.""  ""@i{u} is the zero-extended 16-bit little endian value stored at @i{c_addr}.""
 u = (c_addr[1] << 8) | (c_addr[0]);  u = (c_addr[1] << 8) | (c_addr[0]);
   
 le-l@ ( c_addr -- u )   gforth l_fetch_le  le-ul@ ( c_addr -- u )  gforth l_fetch_le
 ""@i{u} is the zero-extended 32-bit little endian value stored at @i{c_addr}.""  ""@i{u} is the zero-extended 32-bit little endian value stored at @i{c_addr}.""
 u = (c_addr[3] << 24) | (c_addr[2] << 16) | (c_addr[1] << 8) | (c_addr[0]);  u = (c_addr[3] << 24) | (c_addr[2] << 16) | (c_addr[1] << 8) | (c_addr[0]);
   
 le-x@ ( c_addr -- u )   gforth x_fetch_le  le-ux@ ( c_addr -- u )  gforth x_fetch_le
 ""@i{u} is the zero-extended 64-bit little endian value stored at @i{c_addr}.""  ""@i{u} is the zero-extended 64-bit little endian value stored at @i{c_addr}.""
 u = (((Cell)(c_addr[7]) << 56) |  u = (((Cell)(c_addr[7]) << 56) |
      ((Cell)(c_addr[6]) << 48) |       ((Cell)(c_addr[6]) << 48) |

Removed from v.1.252  
changed lines
  Added in v.1.253


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