gforth/prim - diff

Return to prim CVS log

Up to [gforth] / gforth

version 1.152, 2004/03/29 13:54:14	version 1.154, 2004/06/19 18:47:26
Line 324 INST_TAIL;	Line 324 INST_TAIL;
JUMP(a_target);	JUMP(a_target);
#else	#else
SET_IP((Xt *)a_target);	SET_IP((Xt *)a_target);
	INST_TAIL;
	NEXT_P2;
#endif	#endif
	SUPER_CONTINUE; /* we do our own control flow, so don't append NEXT etc. */
:	:
r> @ >r ;	r> @ >r ;

Line 988 w2 = ~w1;	Line 991 w2 = ~w1;

rshift ( u1 n -- u2 ) core r_shift	rshift ( u1 n -- u2 ) core r_shift
""Logical shift right by @i{n} bits.""	""Logical shift right by @i{n} bits.""
u2 = u1>>n;	#ifdef BROKEN_SHIFT
	u2 = rshift(u1, n);
	#else
	u2 = u1 >> n;
	#endif
:	:
0 ?DO 2/ MAXI and LOOP ;	0 ?DO 2/ MAXI and LOOP ;

lshift ( u1 n -- u2 ) core l_shift	lshift ( u1 n -- u2 ) core l_shift
u2 = u1<<n;	#ifdef BROKEN_SHIFT
	u2 = lshift(u1, n);
	#else
	u2 = u1 << n;
	#endif
:	:
0 ?DO 2* LOOP ;	0 ?DO 2* LOOP ;