version 1.2, 1994/09/26 20:31:13
|
version 1.3, 1994/10/04 18:23:59
|
Line 15 extern void * cacheflush(void *, int, in
|
Line 15 extern void * cacheflush(void *, int, in
|
fflush(stderr); \ |
fflush(stderr); \ |
fprintf(stderr,"Cache flushed, final address: %08x\n", \ |
fprintf(stderr,"Cache flushed, final address: %08x\n", \ |
(int)cacheflush((void *)(addr), (int)(size), 32)); }) |
(int)cacheflush((void *)(addr), (int)(size), 32)); }) |
# else |
#else |
/* |
|
# define CACHE_FLUSH(addr,size) \ |
|
({ fprintf(stderr,"Flushing Cache at %08x:%08x\n",(int) addr, size); \ |
|
fflush(stderr); \ |
|
fprintf(stderr,"Cache flushed, final address: %08x\n", \ |
|
(int)cacheflush((void *)(addr), (int)(size), 32)); }) |
|
*/ |
|
# define CACHE_FLUSH(addr,size) \ |
# define CACHE_FLUSH(addr,size) \ |
({ (void)cacheflush((void *)(addr), (int)(size), 32); }) |
({ (void)cacheflush((void *)(addr), (int)(size), 32); }) |
|
|
# endif |
# endif |
#endif |
#endif |
|
|
Line 64 typedef float SFloat;
|
Line 56 typedef float SFloat;
|
/* 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 undefined |
|
#define MAKE_CFA(cfa,ca) ({long *_cfa = (long *)(cfa); \ |
|
unsigned _ca = (unsigned)(ca); \ |
|
_cfa[0] = 0xE4A02000 | (((int)_ca+4-(int)symbols[0]) & 0x7FC)<<1 ; \ |
|
_cfa[1] = *(long *)(_ca); \ |
|
/* printf("%08x:%08x,%08x\n",_cfa,_cfa[0],_cfa[1]); */ \ |
|
}) |
|
#endif |
|
|
|
#ifdef DIRECT_THREADED |
#ifdef DIRECT_THREADED |
|
|
#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 */ \ |
Line 121 typedef float SFloat;
|
Line 104 typedef float SFloat;
|
# define MAKE_CF(cfa,ca) \ |
# define MAKE_CF(cfa,ca) \ |
({ \ |
({ \ |
long *_cfa = (long *)(cfa); \ |
long *_cfa = (long *)(cfa); \ |
int _ca = (int)(ca); \ |
int _ca = (int)(ca)+4; \ |
int _dp = _ca-(int)(_cfa+2); \ |
int _dp = _ca-(int)(_cfa+2); \ |
\ |
\ |
if(_ca < 0x40000) /* Branch absolute */ \ |
if(_ca < 0x40000) /* Branch absolute */ \ |
Line 131 typedef float SFloat;
|
Line 114 typedef float SFloat;
|
( 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] = ((long *)(_ca))[-1]; /* or %r0,%r0,%r0 */; \ |
} \ |
} \ |
else if(_dp < 0x40000 || _dp >= -0x40000) \ |
else if(_dp < 0x40000 || _dp >= -0x40000) \ |
{ \ |
{ \ |
Line 140 typedef float SFloat;
|
Line 123 typedef float SFloat;
|
( 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] = ((long *)(_ca))[-1]; /* 0x08000240 or %r0,%r0,%r0 */; \ |
} \ |
} \ |
else \ |
else \ |
{ \ |
{ \ |
|
_ca -= 4; \ |
_cfa[0] = (0x08 << 26) | \ |
_cfa[0] = (0x08 << 26) | \ |
((int)_ca<0) | \ |
((int)_ca<0) | \ |
(_ca & 0x00001800)<<1 | \ |
(_ca & 0x00001800)<<1 | \ |
Line 164 typedef float SFloat;
|
Line 148 typedef float SFloat;
|
/* 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 *)(((char *)CODE_ADDRESS(cfa))+8)) |
# 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) \ |
Line 173 typedef float SFloat;
|
Line 157 typedef float SFloat;
|
/* 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; }) |
|
#ifdef undefined |
# define MAKE_DOES_HANDLER(cfa) \ |
# define MAKE_DOES_HANDLER(cfa) \ |
({ \ |
({ \ |
long *_cfa = (long *)(cfa); \ |
long *_cfa = (long *)(cfa); \ |
Line 215 typedef float SFloat;
|
Line 201 typedef float SFloat;
|
} \ |
} \ |
DOUT("%08x: %08x,%08x\n",(int)_cfa,_cfa[0],_cfa[1]); \ |
DOUT("%08x: %08x,%08x\n",(int)_cfa,_cfa[0],_cfa[1]); \ |
}) |
}) |
|
#endif |
|
|
# define MAKE_DOES_CF(cfa,ca) \ |
# define MAKE_DOES_CF(cfa,ca) \ |
({ \ |
({ \ |
long *_cfa = (long *)(cfa); \ |
long *_cfa = (long *)(cfa); \ |
int _ca = (int)(ca)-DOES_HANDLER_SIZE; \ |
int _ca = (int)symbols[DODOES]; \ |
int _dp = _ca-(int)(_cfa+2); \ |
int _dp = _ca-(int)(_cfa+2); \ |
\ |
\ |
if(_dp < 0x40000 || _dp >= -0x40000) \ |
if(_ca < 0x40000) /* Branch absolute */ \ |
{ \ |
{ \ |
_cfa[0] = (0x3A << 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 */ \ |
( 1 << 1))| /* if 1, don't execute delay slot */ \ |
ASS17(_dp); \ |
ASS17(_ca); \ |
_cfa[1] = 0x08000240 /* or %r0,%r0,%r0 */; \ |
_cfa[1] = (long)(ca); \ |
} \ |
} \ |
else if(_ca < 0x40000) /* Branch absolute */ \ |
else if(_dp < 0x40000 || _dp >= -0x40000) \ |
{ \ |
{ \ |
_cfa[0] = (0x38 << 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 */ \ |
( 1 << 1))| /* if 1, don't execute delay slot */ \ |
ASS17(_ca); \ |
ASS17(_dp); \ |
_cfa[1] = 0x08000240 /* or %r0,%r0,%r0 */; \ |
_cfa[1] = (long)(ca); \ |
} \ |
} \ |
else \ |
else \ |
{ \ |
{ \ |
_cfa[0] = (0x08 << 26) | \ |
fprintf(stderr,"DOESCFA assignment failed, use ITC instead of DTC\n"); exit(1); \ |
((int)_ca<0) | \ |
|
(_ca & 0x00001800)<<1 | \ |
|
(_ca & 0x0003E000)<<3 | \ |
|
(_ca & 0x000C0000)>>4 | \ |
|
(_ca & 0x7FF00000)>>19; \ |
|
_ca &= 0x3FF; \ |
|
_cfa[1] = (0x38 << 26) | /* major opcode */ \ |
|
( 1 << 21) | /* register */ \ |
|
( 0 << 13) | /* space register */ \ |
|
( 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]); \ |
}) |
}) |