gforth/prim - diff

Return to prim CVS log

Up to [gforth] / gforth

version 1.242, 2009/05/12 16:54:58	version 1.243, 2009/06/29 20:21:28
Line 1836 wior = IOR(ftruncate(fileno((FILE *)wfil	Line 1836 wior = IOR(ftruncate(fileno((FILE *)wfil
read-file ( c_addr u1 wfileid -- u2 wior ) file read_file	read-file ( c_addr u1 wfileid -- u2 wior ) file read_file
/* !! fread does not guarantee enough */	/* !! fread does not guarantee enough */
u2 = fread(c_addr, sizeof(Char), u1, (FILE *)wfileid);	u2 = fread(c_addr, sizeof(Char), u1, (FILE *)wfileid);
	if (u2>0)
	gf_regetc((FILE *)wfileid);
wior = FILEIO(u2<u1 && ferror((FILE *)wfileid));	wior = FILEIO(u2<u1 && ferror((FILE *)wfileid));
/* !! is the value of ferror errno-compatible? */	/* !! is the value of ferror errno-compatible? */
if (wior)	if (wior)
clearerr((FILE *)wfileid);	clearerr((FILE *)wfileid);

(read-line) ( c_addr u1 wfileid -- u2 flag u3 wior ) file paren_read_line	(read-line) ( c_addr u1 wfileid -- u2 flag u3 wior ) file paren_read_line
struct Cellquad r = read_line(c_addr, u1, wfileid);	struct Cellquad r = read_line(c_addr, u1, (FILE *)wfileid);
u2 = r.n1;	u2 = r.n1;
flag = r.n2;	flag = r.n2;
u3 = r.n3;	u3 = r.n3;