gforth/prim - diff

Return to prim CVS log

Up to [gforth] / gforth

version 1.272, 2012/05/26 10:20:01	version 1.276, 2012/08/20 23:10:34
Line 1700 wfileid = (Cell)stderr;	Line 1700 wfileid = (Cell)stderr;

\+os	\+os

form ( -- urows ucols ) gforth	(form) ( -- urows ucols ) gforth paren_form
""The number of lines and columns in the terminal. These numbers may	""The number of lines and columns in the terminal. These numbers may
change with the window size. Note that it depends on the OS whether	change with the window size. Note that it depends on the OS whether
this reflects the actual size and changes with the window size	this reflects the actual size and changes with the window size
Line 1735 FLUSH_ICACHE((caddr_t)c_addr,u);	Line 1735 FLUSH_ICACHE((caddr_t)c_addr,u);

(bye) ( n -- ) gforth paren_bye	(bye) ( n -- ) gforth paren_bye
SUPER_END;	SUPER_END;
	gforth_FP=fp;
	gforth_SP=sp;
	gforth_RP=rp;
	gforth_LP=lp;
return (Label *)n;	return (Label *)n;

(system) ( c_addr u -- wretval wior ) gforth paren_system	(system) ( c_addr u -- wretval wior ) gforth paren_system
Line 2793 ip=IP;	Line 2797 ip=IP;
SUPER_END;	SUPER_END;
VM_JUMP(EXEC1((Xt)a_addr));	VM_JUMP(EXEC1((Xt)a_addr));

	\+objects
	\g object_pointer

	>o ( c_addr -- r:c_old ) new to_o
	c_old = op;
	op = c_addr;

	o> ( r:c_addr -- ) new o_restore
	op = c_addr;

	o#+ ( #w -- c_addr ) new o_lit_plus
	c_addr = op + w;

	\+
\g static_super	\g static_super

ifdef(`STACK_CACHE_FILE',	ifdef(`STACK_CACHE_FILE',