| UCell lshift(UCell u1, UCell n); |
UCell lshift(UCell u1, UCell n); |
| UCell rshift(UCell u1, UCell n); |
UCell rshift(UCell u1, UCell n); |
| int gforth_system(Char *c_addr, UCell u); |
int gforth_system(Char *c_addr, UCell u); |
| |
Cell capscompare(Char *c_addr1, UCell u1, Char *c_addr2, UCell u2); |
| |
|
| /* signal handler stuff */ |
/* signal handler stuff */ |
| void install_signal_handlers(void); |
void install_signal_handlers(void); |
| extern Cell *gforth_RP; |
extern Cell *gforth_RP; |
| extern Address gforth_LP; |
extern Address gforth_LP; |
| #include <ffi.h> |
#include <ffi.h> |
| extern void gforth_callback(ffi_cif * cif, void * resp, void ** args, Xt * ip); |
extern void gforth_callback(ffi_cif * cif, void * resp, void ** args, void * ip); |
| #endif |
#endif |
| |
|
| #ifdef GFORTH_DEBUGGING |
#ifdef GFORTH_DEBUGGING |
