version 1.48, 2002/12/19 20:14:57
|
version 1.49, 2002/12/19 20:43:26
|
Line 84 struct Longname {
|
Line 84 struct Longname {
|
|
|
#define LONGNAME_COUNT(np) ((np)->countetc & (((~((UCell)0))<<3)>>3)) |
#define LONGNAME_COUNT(np) ((np)->countetc & (((~((UCell)0))<<3)>>3)) |
|
|
Cell *SP; |
|
Float *FP; |
|
Address UP=NULL; |
|
|
|
#if 0 |
|
/* not used currently */ |
|
int emitcounter; |
|
#endif |
|
#define NULLC '\0' |
#define NULLC '\0' |
|
|
#ifdef MEMCMP_AS_SUBROUTINE |
#ifdef MEMCMP_AS_SUBROUTINE |
Line 101 extern int gforth_memcmp(const char * s1
|
Line 93 extern int gforth_memcmp(const char * s1
|
|
|
#define NEWLINE '\n' |
#define NEWLINE '\n' |
|
|
#ifdef HAS_FILE |
|
static char* fileattr[6]={"rb","rb","r+b","r+b","wb","wb"}; |
|
static char* pfileattr[6]={"r","r","r+","r+","w","w"}; |
|
|
|
#ifndef O_BINARY |
|
#define O_BINARY 0 |
|
#endif |
|
#ifndef O_TEXT |
|
#define O_TEXT 0 |
|
#endif |
|
|
|
static int ufileattr[6]= { |
|
O_RDONLY|O_BINARY, O_RDONLY|O_BINARY, |
|
O_RDWR |O_BINARY, O_RDWR |O_BINARY, |
|
O_WRONLY|O_BINARY, O_WRONLY|O_BINARY }; |
|
#endif |
|
|
|
/* conversion on fetch */ |
/* conversion on fetch */ |
|
|
#define vm_Cell2f(_cell,_x) ((_x)=(Bool)(_cell)) |
#define vm_Cell2f(_cell,_x) ((_x)=(Bool)(_cell)) |
Line 207 static int ufileattr[6]= {
|
Line 182 static int ufileattr[6]= {
|
#endif |
#endif |
#define SUPER_CONTINUE |
#define SUPER_CONTINUE |
|
|
#ifdef GFORTH_DEBUGGING |
|
/* define some VM registers as global variables, so they survive exceptions; |
|
global register variables are not up to the task (according to the |
|
GNU C manual) */ |
|
Xt *saved_ip; |
|
Cell *rp; |
|
#endif |
|
|
|
#ifdef NO_IP |
|
static Label next_code; |
|
#endif |
|
|
|
#ifdef DEBUG |
#ifdef DEBUG |
#define CFA_TO_NAME(__cfa) \ |
#define CFA_TO_NAME(__cfa) \ |
Cell len, i; \ |
Cell len, i; \ |