gforth/engine/main.c - diff

Return to main.c CVS log

Up to [gforth] / gforth / engine

version 1.13, 1998/12/13 23:30:02	version 1.14, 1998/12/20 23:17:56
Line 47	Line 47
#define PRIM_VERSION 1	#define PRIM_VERSION 1
/* increment this whenever the primitives change in an incompatible way */	/* increment this whenever the primitives change in an incompatible way */

	#ifndef DEFAULTPATH
	# define DEFAULTPATH "."
	#endif

#ifdef MSDOS	#ifdef MSDOS
jmp_buf throw_jmp_buf;	jmp_buf throw_jmp_buf;
# ifndef DEFAULTPATH
# define DEFAULTPATH "."
# endif
#endif	#endif

#if defined(DIRECT_THREADED)	#if defined(DIRECT_THREADED)
Line 307 int go_forth(Address image, int stack, C	Line 308 int go_forth(Address image, int stack, C
for(;stack>0;stack--)	for(;stack>0;stack--)
*--sp=entries[stack-1];	*--sp=entries[stack-1];

#if !defined(MSDOS) && !defined(_WIN32) && !defined(__EMX__)	#if !defined(MSDOS) && !defined(SHARC) && !defined(_WIN32) && !defined(__EMX__)
get_winsize();	get_winsize();
#endif	#endif