version 1.71, 2006/01/05 01:37:33
|
version 1.72, 2006/03/11 22:22:40
|
Line 336 void faxpy(Float ra, Float *f_x, Cell ns
|
Line 336 void faxpy(Float ra, Float *f_x, Cell ns
|
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); |
Line 390 extern void gforth_callback(Xt* fcall, v
|
Line 390 extern void gforth_callback(Xt* fcall, v
|
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 |