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) |