Return to prim CVS log | Up to [gforth] / gforth |
version 1.186, 2006/01/28 17:55:31 | version 1.187, 2006/01/29 18:34:33 |
---|---|
Line 873 division by 2 (note that @code{/} not ne | Line 873 division by 2 (note that @code{/} not ne |
n2 = n1>>1; | n2 = n1>>1; |
: | : |
dup MINI and IF 1 ELSE 0 THEN | dup MINI and IF 1 ELSE 0 THEN |
[ bits/byte cell * 1- ] literal | [ bits/char cell * 1- ] literal |
0 DO 2* swap dup 2* >r MINI and | 0 DO 2* swap dup 2* >r MINI and |
IF 1 ELSE 0 THEN or r> swap | IF 1 ELSE 0 THEN or r> swap |
LOOP nip ; | LOOP nip ; |