version 1.38, 2002/01/14 08:40:24
|
version 1.39, 2002/01/20 19:04:11
|
Line 282 static int ufileattr[6]= {
|
Line 282 static int ufileattr[6]= {
|
# define CPU_DEP1 0 |
# define CPU_DEP1 0 |
#endif |
#endif |
|
|
/* declare and compute cfa for certain threading variants */ |
|
/* warning: this is nonsyntactical; it will not work in place of a statement */ |
|
#ifndef GETCFA |
|
#define DOCFA |
|
#else |
|
#define DOCFA Xt cfa; GETCFA(cfa) |
|
#endif |
|
|
|
/* instructions containing these must be the last instruction of a |
/* instructions containing these must be the last instruction of a |
super-instruction (e.g., branches, EXECUTE, and other instructions |
super-instruction (e.g., branches, EXECUTE, and other instructions |
ending the basic block). Instructions containing SET_IP get this |
ending the basic block). Instructions containing SET_IP get this |
Line 327 Cell *rp;
|
Line 319 Cell *rp;
|
#endif |
#endif |
|
|
Xt *primtable(Label symbols[], Cell size) |
Xt *primtable(Label symbols[], Cell size) |
|
/* used in primitive primtable for peephole optimization */ |
{ |
{ |
#ifdef DIRECT_THREADED |
#ifdef DIRECT_THREADED |
return symbols; |
return symbols; |
Line 354 define(enginerest,
|
Line 347 define(enginerest,
|
register Cell *sp SPREG = sp0; |
register Cell *sp SPREG = sp0; |
register Float *fp FPREG = fp0; |
register Float *fp FPREG = fp0; |
register Address lp LPREG = lp0; |
register Address lp LPREG = lp0; |
#ifdef CFA_NEXT |
|
register Xt cfa CFAREG; |
register Xt cfa CFAREG; |
#endif |
|
#ifdef MORE_VARS |
#ifdef MORE_VARS |
MORE_VARS |
MORE_VARS |
#endif |
#endif |
Line 441 define(enginerest,
|
Line 432 define(enginerest,
|
|
|
docol: |
docol: |
{ |
{ |
DOCFA; |
|
#ifdef DEBUG |
#ifdef DEBUG |
{ |
{ |
CFA_TO_NAME(cfa); |
CFA_TO_NAME(cfa); |
Line 471 define(enginerest,
|
Line 461 define(enginerest,
|
|
|
docon: |
docon: |
{ |
{ |
DOCFA; |
|
#ifdef DEBUG |
#ifdef DEBUG |
fprintf(stderr,"%08lx: con: %08lx\n",(Cell)ip,*(Cell*)PFA1(cfa)); |
fprintf(stderr,"%08lx: con: %08lx\n",(Cell)ip,*(Cell*)PFA1(cfa)); |
#endif |
#endif |
Line 487 define(enginerest,
|
Line 476 define(enginerest,
|
|
|
dovar: |
dovar: |
{ |
{ |
DOCFA; |
|
#ifdef DEBUG |
#ifdef DEBUG |
fprintf(stderr,"%08lx: var: %08lx\n",(Cell)ip,(Cell)PFA1(cfa)); |
fprintf(stderr,"%08lx: var: %08lx\n",(Cell)ip,(Cell)PFA1(cfa)); |
#endif |
#endif |
Line 503 define(enginerest,
|
Line 491 define(enginerest,
|
|
|
douser: |
douser: |
{ |
{ |
DOCFA; |
|
#ifdef DEBUG |
#ifdef DEBUG |
fprintf(stderr,"%08lx: user: %08lx\n",(Cell)ip,(Cell)PFA1(cfa)); |
fprintf(stderr,"%08lx: user: %08lx\n",(Cell)ip,(Cell)PFA1(cfa)); |
#endif |
#endif |
Line 519 define(enginerest,
|
Line 506 define(enginerest,
|
|
|
dodefer: |
dodefer: |
{ |
{ |
DOCFA; |
|
#ifdef DEBUG |
#ifdef DEBUG |
fprintf(stderr,"%08lx: defer: %08lx\n",(Cell)ip,*(Cell*)PFA1(cfa)); |
fprintf(stderr,"%08lx: defer: %08lx\n",(Cell)ip,*(Cell*)PFA1(cfa)); |
#endif |
#endif |
Line 529 define(enginerest,
|
Line 515 define(enginerest,
|
|
|
dofield: |
dofield: |
{ |
{ |
DOCFA; |
|
#ifdef DEBUG |
#ifdef DEBUG |
fprintf(stderr,"%08lx: field: %08lx\n",(Cell)ip,(Cell)PFA1(cfa)); |
fprintf(stderr,"%08lx: field: %08lx\n",(Cell)ip,(Cell)PFA1(cfa)); |
#endif |
#endif |
Line 557 define(enginerest,
|
Line 542 define(enginerest,
|
|
|
*/ |
*/ |
{ |
{ |
DOCFA; |
|
|
|
/* fprintf(stderr, "Got CFA %08lx at doescode %08lx/%08lx: does: %08lx\n",cfa,(Cell)ip,(Cell)PFA(cfa),(Cell)DOES_CODE1(cfa));*/ |
/* fprintf(stderr, "Got CFA %08lx at doescode %08lx/%08lx: does: %08lx\n",cfa,(Cell)ip,(Cell)PFA(cfa),(Cell)DOES_CODE1(cfa));*/ |
#ifdef DEBUG |
#ifdef DEBUG |
fprintf(stderr,"%08lx/%08lx: does: %08lx\n",(Cell)ip,(Cell)PFA(cfa),(Cell)DOES_CODE1(cfa)); |
fprintf(stderr,"%08lx/%08lx: does: %08lx\n",(Cell)ip,(Cell)PFA(cfa),(Cell)DOES_CODE1(cfa)); |