gforth/prim - diff

Return to prim CVS log

Up to [gforth] / gforth

version 1.84, 2001/12/01 20:33:14	version 1.86, 2001/12/24 20:39:29
Line 1608 if (wior)	Line 1608 if (wior)
clearerr((FILE *)wfileid);	clearerr((FILE *)wfileid);

read-line ( c_addr u1 wfileid -- u2 flag wior ) file read_line	read-line ( c_addr u1 wfileid -- u2 flag wior ) file read_line
""this is only for backward compatibility""	/* this may one day be replaced with : read-line (read-line) nip ; */
Cell c;	Cell c;
flag=-1;	flag=-1;
for(u2=0; u2<u1; u2++)	for(u2=0; u2<u1; u2++)
Line 2385 peephole-opt ( xt1 xt2 wpeeptable -- xt	Line 2385 peephole-opt ( xt1 xt2 wpeeptable -- xt
they cannot be combined, xt is 0.""	they cannot be combined, xt is 0.""
xt = peephole_opt(xt1, xt2, wpeeptable);	xt = peephole_opt(xt1, xt2, wpeeptable);

call ( #a_callee -- R:a_retaddr )	call ( #a_callee -- R:a_retaddr ) new
""Call callee (a variant of docol with inline argument).""	""Call callee (a variant of docol with inline argument).""
a_retaddr = (Cell *)IP;	a_retaddr = (Cell *)IP;
SET_IP((Xt *)a_callee);	SET_IP((Xt *)a_callee);

useraddr ( #u -- a_addr )	useraddr ( #u -- a_addr ) new
a_addr = (Cell *)(up+u);	a_addr = (Cell *)(up+u);

	compile-prim ( xt1 -- xt2 ) new compile_prim
	xt2 = (Xt)compile_prim((Label)xt1);

include(peeprules.vmg)	include(peeprules.vmg)

\+	\+