version 1.5, 1994/12/12 17:10:39
|
version 1.13, 1995/11/02 14:20:53
|
Line 5
|
Line 5
|
This is the machine-specific part for a HPPA running HP-UX |
This is the machine-specific part for a HPPA running HP-UX |
*/ |
*/ |
|
|
|
#if !defined(USE_TOS) && !defined(USE_NO_TOS) |
|
#define USE_TOS |
|
#endif |
|
|
#ifndef INDIRECT_THREADED |
#ifndef INDIRECT_THREADED |
#ifndef DIRECT_THREADED |
#ifndef DIRECT_THREADED |
#define DIRECT_THREADED |
#define DIRECT_THREADED |
#endif |
#endif |
#endif |
#endif |
|
|
/* cache flush stuff */ |
#define LONG_LATENCY |
#ifdef DIRECT_THREADED |
|
|
|
extern void * cacheflush(void *, int, int); |
/* cache flush stuff */ |
|
extern void cacheflush(void *, int, int); |
#ifdef DEBUG |
#ifdef DEBUG |
# define CACHE_FLUSH(addr,size) \ |
# define FLUSH_ICACHE(addr,size) \ |
({ fprintf(stderr,"Flushing Cache at %08x:%08x\n",(int) addr, size); \ |
({ \ |
fflush(stderr); \ |
fprintf(stderr,"Flushing Cache at %08x:%08x\n",(int) addr, size); \ |
fprintf(stderr,"Cache flushed, final address: %08x\n", \ |
fflush(stderr); \ |
(int)cacheflush((void *)(addr), (int)(size), 32)); }) |
cacheflush((void *)(addr), (int)(size), 32); \ |
|
fprintf(stderr,"Cache flushed\n"); }) |
#else |
#else |
# define CACHE_FLUSH(addr,size) \ |
# define FLUSH_ICACHE(addr,size) \ |
({ (void)cacheflush((void *)(addr), (int)(size), 32); }) |
cacheflush((void *)(addr), (int)(size), 32) |
# endif |
|
#endif |
#endif |
|
|
#include "32bit.h" |
#include "32bit.h" |
|
|
#ifdef DIRECT_THREADED |
#ifdef DIRECT_THREADED |
/* PFA gives the parameter field address corresponding to a cfa */ |
/* PFA gives the parameter field address corresponding to a cfa */ |
# define PFA(cfa) (((Cell *)cfa)+2) |
# define PFA(cfa) (((Cell *)cfa)+2) |
/* PFA1 is a special version for use just after a NEXT1 */ |
/* PFA1 is a special version for use just after a NEXT1 */ |
/* the improvement here is that we may destroy cfa before using PFA1 */ |
/* the improvement here is that we may destroy cfa before using PFA1 */ |
# define PFA1(cfa) PFA(cfa) |
# define PFA1(cfa) PFA(cfa) |
/* HPPA uses register 2 for branch and link */ |
/* HPPA uses register 2 for branch and link */ |
|
|
/* 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 */ |
|
|
/* 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 */ |
/* we use ble and a register, since 'bl' only has 21 bits displacement */ |
/* we use ble and a register, since 'bl' only has 21 bits displacement */ |
#endif |
#endif |
|
|
#ifdef DIRECT_THREADED |
#ifdef DIRECT_THREADED |
Line 48 extern void * cacheflush(void *, int, in
|
Line 52 extern void * cacheflush(void *, int, in
|
# ifdef DEBUG |
# ifdef DEBUG |
# define DOUT(a,b,c,d) fprintf(stderr,a,b,c,d) |
# define DOUT(a,b,c,d) fprintf(stderr,a,b,c,d) |
# else |
# else |
# define DOUT(a,b,c,d) |
# define DOUT(a,b,c,d) |
# endif |
# endif |
|
|
# define ASS17(n)(((((n) >> 13) & 0x1F) << 16)| /* first 5 bits */ \ |
# define ASS17(n)(((((n) >> 13) & 0x1F) << 16)| /* first 5 bits */ \ |
((((n) >> 2) & 0x3FF) << 3)| /* second 11 bits */ \ |
((((n) >> 2) & 0x3FF) << 3)| /* second 11 bits */ \ |
((((n) >> 12) & 0x1) << 2) | /* lo sign (arg!) */ \ |
((((n) >> 12) & 0x1) << 2) | /* lo sign (aaarg!) */ \ |
(((n) < 0) << 0)) /* sign bit */ |
(((n) < 0) << 0)) /* sign bit */ |
|
|
# define DIS17(n)(((((n) >> 16) & 0x1F) << 13)| /* first 5 bits */ \ |
# define DIS17(n)(((((n) >> 16) & 0x1F) << 13)| /* first 5 bits */ \ |
((((n) >> 3) & 0x3FF) << 2)| /* second 11 bits */ \ |
((((n) >> 3) & 0x3FF) << 2)| /* second 11 bits */ \ |
((((n) >> 2) & 0x1) << 12) | /* lo sign (arg!) */ \ |
((((n) >> 2) & 0x1) << 12) | /* lo sign (aaarg!) */ \ |
(-((n) & 1) << 18)) /* sign bit */ |
(-((n) & 1) << 18)) /* sign bit */ |
|
|
# define CODE_ADDRESS(cfa) ((Label)({ \ |
# define CODE_ADDRESS(cfa)\ |
unsigned int *_cfa=(unsigned int *)(cfa); unsigned _ca; \ |
((Label)({ \ |
if((_cfa[0] & 0xFFE0E002) == 0xE8000000) /* relative branch */ \ |
unsigned int *_cfa=(unsigned int *)(cfa); unsigned _ca; \ |
{ \ |
if((_cfa[0] & 0xFFE0E002) == 0xE8000000) /* relative branch */ \ |
_ca = _cfa[0]; \ |
{ \ |
_ca = DIS17(_ca); \ |
_ca = _cfa[0]; \ |
_ca += (int) (_cfa + 2); \ |
_ca = DIS17(_ca); \ |
} \ |
_ca += (int) (_cfa + 1); \ |
else if((_cfa[0] & 0xFFE0E002) == 0xE0000000) /* absolute branch */ \ |
} \ |
{ \ |
else if((_cfa[0] & 0xFFE0E002) == 0xE0000000) /* absolute branch */ \ |
_ca = _cfa[0]; \ |
{ \ |
_ca = DIS17(_ca); \ |
_ca = _cfa[0]; \ |
} \ |
_ca = DIS17(_ca)-4; \ |
else \ |
} \ |
{ \ |
else \ |
_ca = _cfa[0]; \ |
{ \ |
_ca = (_ca<<31) | \ |
_ca = _cfa[0]; \ |
((_ca>>1 ) & 0x00001800) | \ |
_ca = (_ca<<31) | \ |
((_ca>>3 ) & 0x0003E000) | \ |
((_ca>>1 ) & 0x00001800) | \ |
((_ca<<4 ) & 0x000C0000) | \ |
((_ca>>3 ) & 0x0003E000) | \ |
((_ca<<19) & 0x7FF00000) | \ |
((_ca<<4 ) & 0x000C0000) | \ |
((_cfa[1]>>1) & 0xFFC); \ |
((_ca<<19) & 0x7FF00000) | \ |
} \ |
((_cfa[1]>>1) & 0xFFC); \ |
/* printf("code-address at %08x: %08x\n",_ca,_cfa); */ \ |
} \ |
_ca; \ |
/* printf("code-address at %08x: %08x\n",_ca,_cfa); */ \ |
})) |
_ca; \ |
|
})) |
# define MAKE_CF(cfa,ca) \ |
|
({ \ |
# define MAKE_CF(cfa,ca) \ |
long *_cfa = (long *)(cfa); \ |
({ \ |
int _ca = (int)(ca)+4; \ |
long *_cfa = (long *)(cfa); \ |
int _dp = _ca-(int)(_cfa+2); \ |
int _ca = (int)(ca)+4; \ |
\ |
int _dp = _ca-(int)(_cfa+2); \ |
if(_ca < 0x40000) /* Branch absolute */ \ |
\ |
{ \ |
if(_ca < 0x40000) /* Branch absolute */ \ |
_cfa[0] =((0x38 << 26) | /* major opcode */ \ |
{ \ |
( 0 << 21) | /* register */ \ |
_cfa[0] =((0x38 << 26) | /* major opcode */ \ |
( 0 << 13) | /* space register */ \ |
( 0 << 21) | /* register */ \ |
( 0 << 1))| /* if 1, don't execute delay slot */ \ |
( 0 << 13) | /* space register */ \ |
ASS17(_ca); \ |
( 0 << 1) | /* if 1, don't execute delay slot */ \ |
_cfa[1] = ((long *)(_ca))[-1]; /* or %r0,%r0,%r0 */; \ |
ASS17(_ca)); \ |
} \ |
_cfa[1] = ((long *)(_ca))[-1]; /* or %r0,%r0,%r0 */; \ |
else if(_dp < 0x40000 || _dp >= -0x40000) \ |
} \ |
{ \ |
else if(_dp < 0x40000 || _dp >= -0x40000) \ |
_cfa[0] =((0x3A << 26) | /* major opcode */ \ |
{ \ |
( 0 << 21) | /* register */ \ |
_cfa[0] =((0x3A << 26) | /* major opcode */ \ |
( 0 << 13) | /* space register */ \ |
( 0 << 21) | /* register */ \ |
( 0 << 1))| /* if 1, don't execute delay slot */ \ |
( 0 << 13) | /* space register */ \ |
ASS17(_dp); \ |
( 0 << 1) | /* if 1, don't execute delay slot */ \ |
_cfa[1] = ((long *)(_ca))[-1]; /* 0x08000240 or %r0,%r0,%r0 */; \ |
ASS17(_dp)); \ |
} \ |
_cfa[1] = ((long *)(_ca))[-1]; /* 0x08000240 or %r0,%r0,%r0 */; \ |
else \ |
} \ |
{ \ |
else \ |
_ca -= 4; \ |
{ \ |
_cfa[0] = (0x08 << 26) | \ |
_ca -= 4; \ |
((int)_ca<0) | \ |
_cfa[0] = (0x08 << 26) | \ |
(_ca & 0x00001800)<<1 | \ |
((int)_ca<0) | \ |
(_ca & 0x0003E000)<<3 | \ |
(_ca & 0x00001800)<<1 | \ |
(_ca & 0x000C0000)>>4 | \ |
(_ca & 0x0003E000)<<3 | \ |
(_ca & 0x7FF00000)>>19; \ |
(_ca & 0x000C0000)>>4 | \ |
_ca &= 0x3FF; \ |
(_ca & 0x7FF00000)>>19; \ |
_cfa[1] =((0x38 << 26) | /* major opcode */ \ |
_ca &= 0x3FF; \ |
( 1 << 21) | /* register */ \ |
_cfa[1] =((0x38 << 26) | /* major opcode */ \ |
( 0 << 13) | /* space register */ \ |
( 1 << 21) | /* register */ \ |
( 1 << 1))| /* if 1, don't execute delay slot */ \ |
( 0 << 13) | /* space register */ \ |
ASS17(_ca); \ |
( 1 << 1) | /* if 1, don't execute delay slot */ \ |
} \ |
ASS17(_ca)); \ |
DOUT("%08x: %08x,%08x\n",(int)_cfa,_cfa[0],_cfa[1]); \ |
} \ |
}) |
DOUT("%08x: %08x,%08x\n",(int)_cfa,_cfa[0],_cfa[1]); \ |
/* HP wins the price for the most obfuscated binary opcode */ |
}) |
|
/* HP wins the price for the most obfuscated binary opcode */ |
|
|
/* this is the point where the does code starts if label points to the |
/* this is the point where the does code starts if label points to the |
* jump dodoes */ |
* jump dodoes */ |
|
|
# define DOES_CODE(cfa) ((Xt *)(((long *)(cfa))[1])) |
# define DOES_CODE(cfa) ((Xt *)(((long *)(cfa))[1])) |
|
|
/* this is a special version of DOES_CODE for use in dodoes */ |
/* this is a special version of DOES_CODE for use in dodoes */ |
# define DOES_CODE1(cfa) DOES_CODE(cfa) \ |
# define DOES_CODE1(cfa) DOES_CODE(cfa) \ |
/* ({register Xt * _ret asm("%r31"); _ret;}) */ |
/* ({register Xt * _ret asm("%r31"); _ret;}) */ |
|
|
/* HPPA uses register 2 for branch and link */ |
/* HPPA uses register 2 for branch and link */ |
|
|
# define DOES_HANDLER_SIZE 8 |
# define DOES_HANDLER_SIZE 8 |
# define MAKE_DOES_HANDLER(cfa) ({ *(long *)(cfa)=DODOES; }) |
# define MAKE_DOES_HANDLER(cfa) ({ *(long *)(cfa)=DODOES; }) |
#ifdef undefined |
#ifdef undefined |
# define MAKE_DOES_HANDLER(cfa) \ |
# define MAKE_DOES_HANDLER(cfa) \ |
({ \ |
({ \ |
long *_cfa = (long *)(cfa); \ |
long *_cfa = (long *)(cfa); \ |
int _ca = (int)symbols[DODOES]; \ |
int _ca = (int)symbols[DODOES]; \ |
int _dp = _ca-(int)(_cfa+2); \ |
int _dp = _ca-(int)(_cfa+2); \ |
\ |
\ |
if(_ca < 0x40000) /* Branch absolute */ \ |
if(_ca < 0x40000) /* Branch absolute */ \ |
{ \ |
{ \ |
_cfa[0] =((0x38 << 26) | /* major opcode */ \ |
_cfa[0] =((0x38 << 26) | /* major opcode */ \ |
( 0 << 21) | /* register */ \ |
( 0 << 21) | /* register */ \ |
( 0 << 13) | /* space register */ \ |
( 0 << 13) | /* space register */ \ |
( 0 << 1))| /* if 1, don't execute delay slot */ \ |
( 0 << 1) | /* if 1, don't execute delay slot */ \ |
ASS17(_ca); \ |
ASS17(_ca)); \ |
_cfa[1] = 0x08000240 /* or %r0,%r0,%r0 */; \ |
_cfa[1] = 0x08000240 /* or %r0,%r0,%r0 */; \ |
} \ |
} \ |
else if(_dp < 0x40000 || _dp >= -0x40000) \ |
else if(_dp < 0x40000 || _dp >= -0x40000) \ |
{ \ |
{ \ |
_cfa[0] =((0x3A << 26) | /* major opcode */ \ |
_cfa[0] =((0x3A << 26) | /* major opcode */ \ |
( 0 << 21) | /* register */ \ |
( 0 << 21) | /* register */ \ |
( 0 << 13) | /* space register */ \ |
( 0 << 13) | /* space register */ \ |
( 0 << 1))| /* if 1, don't execute delay slot */ \ |
( 0 << 1) | /* if 1, don't execute delay slot */ \ |
ASS17(_dp); \ |
ASS17(_dp)); \ |
_cfa[1] = 0x08000240 /* or %r0,%r0,%r0 */; \ |
_cfa[1] = 0x08000240 /* or %r0,%r0,%r0 */; \ |
} \ |
} \ |
else \ |
else \ |
{ \ |
{ \ |
fprintf(stderr,"DOESHANDLER assignment failed, use ITC instead of DTC\n"); exit(1); \ |
fprintf(stderr,"DOESHANDLER assignment failed, use ITC instead of DTC\n"); exit(1); \ |
_cfa[0] = (0x08 << 26) | \ |
_cfa[0] = ((0x08 << 26) | \ |
((int)_ca<0) | \ |
((int)_ca<0) | \ |
(_ca & 0x00001800)<<1 | \ |
(_ca & 0x00001800)<<1 | \ |
(_ca & 0x0003E000)<<3 | \ |
(_ca & 0x0003E000)<<3 | \ |
(_ca & 0x000C0000)>>4 | \ |
(_ca & 0x000C0000)>>4 | \ |
(_ca & 0x7FF00000)>>19; \ |
(_ca & 0x7FF00000)>>19); \ |
_ca &= 0x3FF; \ |
_ca &= 0x3FF; \ |
_cfa[1] =((0x38 << 26) | /* major opcode */ \ |
_cfa[1] =((0x38 << 26) | /* major opcode */ \ |
( 1 << 21) | /* register */ \ |
( 1 << 21) | /* register */ \ |
( 0 << 13) | /* space register */ \ |
( 0 << 13) | /* space register */ \ |
( 1 << 1))| /* if 1, don't execute delay slot */ \ |
( 1 << 1) | /* if 1, don't execute delay slot */ \ |
ASS17(_ca); \ |
ASS17(_ca)); \ |
} \ |
} \ |
DOUT("%08x: %08x,%08x\n",(int)_cfa,_cfa[0],_cfa[1]); \ |
DOUT("%08x: %08x,%08x\n",(int)_cfa,_cfa[0],_cfa[1]); \ |
}) |
}) |
#endif |
#endif |
|
|
# define MAKE_DOES_CF(cfa,ca) \ |
# define MAKE_DOES_CF(cfa,ca) \ |
({ \ |
({ \ |
long *_cfa = (long *)(cfa); \ |
long *_cfa = (long *)(cfa); \ |
int _ca = (int)symbols[DODOES]; \ |
int _ca = (int)symbols[DODOES]; \ |
int _dp = _ca-(int)(_cfa+2); \ |
int _dp = _ca-(int)(_cfa+2); \ |
\ |
\ |
if(_ca < 0x40000) /* Branch absolute */ \ |
if(_ca < 0x40000) /* Branch absolute */ \ |
{ \ |
{ \ |
_cfa[0] =((0x38 << 26) | /* major opcode */ \ |
_cfa[0] =((0x38 << 26) | /* major opcode */ \ |
( 0 << 21) | /* register */ \ |
( 0 << 21) | /* register */ \ |
( 0 << 13) | /* space register */ \ |
( 0 << 13) | /* space register */ \ |
( 1 << 1))| /* if 1, don't execute delay slot */ \ |
( 1 << 1) | /* if 1, don't execute delay slot */ \ |
ASS17(_ca); \ |
ASS17(_ca)); \ |
_cfa[1] = (long)(ca); \ |
_cfa[1] = (long)(ca); \ |
} \ |
} \ |
else if(_dp < 0x40000 || _dp >= -0x40000) \ |
else if(_dp < 0x40000 || _dp >= -0x40000) \ |
{ \ |
{ \ |
_cfa[0] =((0x3A << 26) | /* major opcode */ \ |
_cfa[0] =((0x3A << 26) | /* major opcode */ \ |
( 0 << 21) | /* register */ \ |
( 0 << 21) | /* register */ \ |
( 0 << 13) | /* space register */ \ |
( 0 << 13) | /* space register */ \ |
( 1 << 1))| /* if 1, don't execute delay slot */ \ |
( 1 << 1) | /* if 1, don't execute delay slot */ \ |
ASS17(_dp); \ |
ASS17(_dp)); \ |
_cfa[1] = (long)(ca); \ |
_cfa[1] = (long)(ca); \ |
} \ |
} \ |
else \ |
else \ |
{ \ |
{ \ |
fprintf(stderr,"DOESCFA assignment failed, use ITC instead of DTC\n"); exit(1); \ |
fprintf(stderr,"DOESCFA assignment failed, use ITC instead of DTC\n"); exit(1); \ |
} \ |
} \ |
DOUT("%08x: %08x,%08x\n",(int)_cfa,_cfa[0],_cfa[1]); \ |
DOUT("%08x: %08x,%08x\n",(int)_cfa,_cfa[0],_cfa[1]); \ |
}) |
}) |
/* this stores a call dodoes at addr */ |
/* this stores a call dodoes at addr */ |
#endif |
#endif |
|
|
|
#undef HAVE_LOG1P |
|
#undef HAVE_RINT |
|
|
|
#ifdef FORCE_REG |
|
#define IPREG asm("%r10") |
|
#define SPREG asm("%r9") |
|
#define RPREG asm("%r8") |
|
#define LPREG asm("%r7") |
|
#define CFAREG asm("%r6") |
|
#define TOSREG asm("%r11") |
|
#endif /* FORCE_REG */ |