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) | |