gforth/prim - diff

Return to prim CVS log

Up to [gforth] / gforth

version 1.151, 2004/03/29 11:23:01	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 ;

Line 2414 SAVE_REGS	Line 2425 SAVE_REGS
av_call(alist);	av_call(alist);
REST_REGS	REST_REGS
#ifdef BUGGY_LONG_LONG	#ifdef BUGGY_LONG_LONG
d = llrv;
#else
d.lo = llrv;	d.lo = llrv;
d.hi = 0;	d.hi = 0;
	#else
	d = llrv;
#endif	#endif

av-call-ptr ( -- c_addr ) gforth av_call_ptr	av-call-ptr ( -- c_addr ) gforth av_call_ptr