gforth/engine/engine.c - diff

Return to engine.c CVS log

Up to [gforth] / gforth / engine

version 1.66, 2003/08/22 08:08:46	version 1.68, 2003/10/09 14:15:20
Line 19	Line 19
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.	Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
*/	*/

	#define USE_NO_TOS
	#define USE_NO_FTOS

#include "config.h"	#include "config.h"
#include "forth.h"	#include "forth.h"
#include <ctype.h>	#include <ctype.h>
Line 233 extern int gforth_memcmp(const char * s1	Line 236 extern int gforth_memcmp(const char * s1
#error illegal ENGINE value	#error illegal ENGINE value
#endif /* ENGINE */	#endif /* ENGINE */

#define LABEL2(name) K_##name:	/* the asm(""); is there to get a stop compiled on Itanium */
	#define LABEL2(name) K_##name: asm("");

Label engine(Xt ip0, Cell sp0, Cell rp0, Float *fp0, Address lp0)	Label engine(Xt ip0, Cell sp0, Cell rp0, Float *fp0, Address lp0)
/* executes code at ip, if ip!=NULL	/* executes code at ip, if ip!=NULL