gforth/prim - diff

Return to prim CVS log

Up to [gforth] / gforth

version 1.244, 2009/10/05 15:54:28	version 1.247, 2010/04/17 21:32:49
Line 1	Line 1
\ Gforth primitives	\ Gforth primitives

\ Copyright (C) 1995,1996,1997,1998,2000,2003,2004,2005,2006,2007,2008 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,1998,2000,2003,2004,2005,2006,2007,2008,2009 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 233 SET_IP(DOES_CODE1(CFA));	Line 233 SET_IP(DOES_CODE1(CFA));
""just a slot to have an encoding for the DOESJUMP,	""just a slot to have an encoding for the DOESJUMP,
which is no longer used anyway (!! eliminate this)""	which is no longer used anyway (!! eliminate this)""

	(doabicode) ( ... -- ...) gforth-internal paren_doabicode
	""run-time routine for ABI-CODE definitions""
	abifunc f = (abifunc )PFA(CFA);
	Float *fp_mem = fp;
	sp = (*f)(sp, &fp_mem);
	fp = fp_mem;
	#ifdef NO_IP
	INST_TAIL;
	goto *next_code;
	#endif /* defined(NO_IP) */

\F [endif]	\F [endif]

\g control	\g control
Line 625 k ( R:w R:w1 R:w2 R:w3 R:w4 -- w R:w R:w	Line 636 k ( R:w R:w1 R:w2 R:w3 R:w4 -- w R:w R:w

\ digit is high-level: 0/0%	\ digit is high-level: 0/0%

	abi-call ( #a_callee ... -- ... ) gforth abi_call
	abifunc f = (abifunc )a_callee;
	Float *fp_mem = fp;
	sp = (*f)(sp, &fp_mem);
	fp = fp_mem;

\g strings	\g strings

move ( c_from c_to ucount -- ) core	move ( c_from c_to ucount -- ) core