gforth/engine/engine.c - diff

Return to engine.c CVS log

Up to [gforth] / gforth / engine

version 1.17, 2000/05/31 14:37:41	version 1.20, 2000/07/27 10:40:42
Line 39	Line 39
#include <unistd.h>	#include <unistd.h>
#include <pwd.h>	#include <pwd.h>
#include <dirent.h>	#include <dirent.h>
	#ifdef HAVE_FNMATCH_H
	#include <fnmatch.h>
	#else
	#include "fnmatch.h"
	#endif
#else	#else
#include "systypes.h"	#include "systypes.h"
#endif	#endif
Line 301 Label engine(Xt ip0, Cell sp0, Cell	Line 306 Label engine(Xt ip0, Cell sp0, Cell
if (i>=MAX_SYMBOLS) {	if (i>=MAX_SYMBOLS) {
fprintf(stderr,"gforth-ditc: more than %d primitives\n",MAX_SYMBOLS);	fprintf(stderr,"gforth-ditc: more than %d primitives\n",MAX_SYMBOLS);
exit(1);	exit(1);
	}
	symbols[i] = &routines[i];
}	}
symbols[i] = &routines[i];
}
#endif /* defined(DOUBLY_INDIRECT) */	#endif /* defined(DOUBLY_INDIRECT) */
return symbols;	return symbols;
}	}

IF_TOS(TOS = sp[0]);	IF_TOS(TOS = sp[0]);
IF_FTOS(FTOS = fp[0]);	IF_FTOS(FTOS = fp[0]);