version 1.16, 1996/07/26 15:28:32
|
version 1.17, 1997/03/04 17:49:56
|
Line 91
|
Line 91
|
/* this stores a call dodoes at addr */ |
/* this stores a call dodoes at addr */ |
#define MAKE_DOES_HANDLER(addr) MAKE_CF(addr,symbols[DODOES]) |
#define MAKE_DOES_HANDLER(addr) MAKE_CF(addr,symbols[DODOES]) |
|
|
#define DOES_HANDLER_SIZE 8 |
|
|
|
#define MAKE_DOES_CF(addr,doesp) ({long *_addr = (long *)(addr); \ |
#define MAKE_DOES_CF(addr,doesp) ({long *_addr = (long *)(addr); \ |
unsigned _doesp = (unsigned)(doesp); \ |
unsigned _doesp = (unsigned)(doesp); \ |
_addr[0] = 0x40000000|((_doesp-8-(unsigned)_addr)>>2); /* CALL doesp-8 */ \ |
_addr[0] = 0x40000000|((_doesp-8-(unsigned)_addr)>>2); /* CALL doesp-8 */ \ |