gforth/engine/forth.h - diff

Return to forth.h CVS log

Up to [gforth] / gforth / engine

version 1.76, 2006/10/22 16:54:01	version 1.77, 2006/10/22 20:45:34
Line 108 typedef unsigned TETRABYTE_TYPE UTetraby	Line 108 typedef unsigned TETRABYTE_TYPE UTetraby
/* Forth data types */	/* Forth data types */
/* Cell and UCell must be the same size as a pointer */	/* Cell and UCell must be the same size as a pointer */
#define CELL_BITS (sizeof(Cell) * CHAR_BIT)	#define CELL_BITS (sizeof(Cell) * CHAR_BIT)
	#define CELL_MIN (((Cell)1)<<(sizeof(Cell)*CHAR_BIT-1))
#define FLAG(b) (-(b))	#define FLAG(b) (-(b))
#define FILEIO(error) (FLAG(error) & -37)	#define FILEIO(error) (FLAG(error) & -37)
#define FILEEXIST(error) (FLAG(error) & -38)	#define FILEEXIST(error) (FLAG(error) & -38)