Return to prim CVS log | Up to [gforth] / gforth |
version 1.52, 2000/08/09 20:04:06 | version 1.53, 2000/08/11 19:49:39 |
---|---|
Line 819 w2 = ~w1; | Line 819 w2 = ~w1; |
MAXU xor ; | MAXU xor ; |
rshift ( u1 n -- u2 ) core r_shift | rshift ( u1 n -- u2 ) core r_shift |
""Logical shift right by @i{n} bits."" | |
u2 = u1>>n; | u2 = u1>>n; |
: | : |
0 ?DO 2/ MAXI and LOOP ; | 0 ?DO 2/ MAXI and LOOP ; |