gforth/primitives - diff

Return to primitives CVS log

Up to [gforth] / gforth

version 1.64, 1997/02/14 20:47:26	version 1.65, 1997/02/16 20:51:11
Line 1479 wior = IOR(w2 == 0);	Line 1479 wior = IOR(w2 == 0);

create-file c_addr u ntype -- w2 wior file create_file	create-file c_addr u ntype -- w2 wior file create_file
Cell fd;	Cell fd;
fd = open(tilde_cstr(c_addr, u, 1), O_CREAT\|O_RDWR\|O_TRUNC, 0666);	fd = open(tilde_cstr(c_addr, u, 1), O_CREAT\|O_TRUNC\|ufileattr[ntype], 0666);
if (fd != -1) {	if (fd != -1) {
w2 = (Cell)fdopen(fd, fileattr[ntype]);	w2 = (Cell)fdopen(fd, fileattr[ntype]);
wior = IOR(w2 == 0);	wior = IOR(w2 == 0);
Line 1949 lp -= sizeof(Float);	Line 1949 lp -= sizeof(Float);
\+[THEN] [THEN] \ has-locals	\+[THEN] [THEN] \ has-locals

up! a_addr -- gforth up_store	up! a_addr -- gforth up_store
up0=up=(char *)a_addr;	UP=up=(char *)a_addr;
:	:
up ! ;	up ! ;
Variable UP	Variable UP