| #define PFA1(cfa) PFA(cfa) |
#define PFA1(cfa) PFA(cfa) |
| /* CODE_ADDRESS is the address of the code jumped to through the code field */ |
/* CODE_ADDRESS is the address of the code jumped to through the code field */ |
| #define CODE_ADDRESS(cfa) \ |
#define CODE_ADDRESS(cfa) \ |
| ({long _cfa = (char *)(cfa); (Label)(_cfa+*((long *)(_cfa+1))+5);}) |
({long _cfa = (long)(cfa); (Label)(_cfa+*((long *)(_cfa+1))+5);}) |
| /* MAKE_CF creates an appropriate code field at the cfa; ca is the code address */ |
/* MAKE_CF creates an appropriate code field at the cfa; ca is the code address */ |
| #define MAKE_CF(cfa,ca) ({long _cfa = (long)(cfa); \ |
#define MAKE_CF(cfa,ca) ({long _cfa = (long)(cfa); \ |
| long _ca = (long)(ca); \ |
long _ca = (long)(ca); \ |
