gforth/engine/engine.c - diff

Return to engine.c CVS log

Up to [gforth] / gforth / engine

version 1.55, 2002/12/31 15:05:58	version 1.61, 2003/03/09 15:17:03
Line 1	Line 1
/* Gforth virtual machine (aka inner interpreter)	/* Gforth virtual machine (aka inner interpreter)

Copyright (C) 1995,1996,1997,1998,2000 Free Software Foundation, Inc.	Copyright (C) 1995,1996,1997,1998,2000,2003 Free Software Foundation, Inc.

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

Line 72	Line 72
#define ftello ftell	#define ftello ftell
#endif	#endif

#define IOR(flag) ((flag)? -512-errno : 0)

struct F83Name {
struct F83Name next; / the link field for old hands */
char countetc;
char name[0];
};

#define F83NAME_COUNT(np) ((np)->countetc & 0x1f)

struct Longname {
struct Longname next; / the link field for old hands */
Cell countetc;
char name[0];
};

#define LONGNAME_COUNT(np) ((np)->countetc & (((~((UCell)0))<<3)>>3))

#define NULLC '\0'	#define NULLC '\0'

#ifdef MEMCMP_AS_SUBROUTINE	#ifdef MEMCMP_AS_SUBROUTINE
Line 307 Label engine(Xt ip0, Cell sp0, Cell	Line 289 Label engine(Xt ip0, Cell sp0, Cell
xts[i] = symbols[i] = (Label)routines[i];	xts[i] = symbols[i] = (Label)routines[i];
for (; routines[i]!=0; i++) {	for (; routines[i]!=0; i++) {
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 %ld primitives\n",(long)MAX_SYMBOLS);
exit(1);	exit(1);
}	}
xts[i] = symbols[i] = &routines[i];	xts[i] = symbols[i] = &routines[i];