version 1.34, 2002/12/13 15:49:53
|
version 1.35, 2002/12/19 20:43:26
|
Line 23
|
Line 23
|
|
|
#include "config.h" |
#include "config.h" |
#include <stdio.h> |
#include <stdio.h> |
|
#include <sys/time.h> |
|
#include <unistd.h> |
|
|
#if defined(DOUBLY_INDIRECT)||defined(INDIRECT_THREADED)||defined(VM_PROFILING) |
#if defined(DOUBLY_INDIRECT)||defined(INDIRECT_THREADED)||defined(VM_PROFILING) |
#define NO_DYNAMIC |
#define NO_DYNAMIC |
Line 232 typedef struct {
|
Line 234 typedef struct {
|
|
|
Label *engine(Xt *ip, Cell *sp, Cell *rp, Float *fp, Address lp); |
Label *engine(Xt *ip, Cell *sp, Cell *rp, Float *fp, Address lp); |
Address my_alloc(Cell size); |
Address my_alloc(Cell size); |
|
char *cstr(Char *from, UCell size, int clear); |
char *tilde_cstr(Char *from, UCell size, int clear); |
char *tilde_cstr(Char *from, UCell size, int clear); |
|
DCell timeval2us(struct timeval *tvp); |
|
|
/* dblsub routines */ |
/* dblsub routines */ |
DCell dnegate(DCell d1); |
DCell dnegate(DCell d1); |
Line 273 extern int debug;
|
Line 277 extern int debug;
|
# define debug 0 |
# define debug 0 |
#endif |
#endif |
|
|
|
extern Cell *SP; |
|
extern Float *FP; |
|
extern Address UP; |
|
|
#ifdef GFORTH_DEBUGGING |
#ifdef GFORTH_DEBUGGING |
extern Xt *saved_ip; |
extern Xt *saved_ip; |
extern Cell *rp; |
extern Cell *rp; |
#endif |
#endif |
|
|
|
#ifdef NO_IP |
|
extern Label next_code; |
|
#endif |
|
|
|
#ifdef HAS_FILE |
|
extern char* fileattr[6]; |
|
extern char* pfileattr[6]; |
|
extern int ufileattr[6]; |
|
#endif |
|
|
#ifdef PRINT_SUPER_LENGTHS |
#ifdef PRINT_SUPER_LENGTHS |
Cell prim_length(Cell prim); |
Cell prim_length(Cell prim); |
void print_super_lengths(); |
void print_super_lengths(); |