1985-01-08 15:34:54 +00:00
|
|
|
#ifndef NORCSID
|
|
|
|
static char rcsid[] = "$Header$";
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#include "assert.h"
|
|
|
|
#include "param.h"
|
|
|
|
#include "tables.h"
|
|
|
|
#include "types.h"
|
|
|
|
#include <cgg_cg.h>
|
|
|
|
#include "data.h"
|
|
|
|
#include "result.h"
|
|
|
|
#include "extern.h"
|
|
|
|
|
|
|
|
/*
|
1987-03-10 01:26:51 +00:00
|
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
1985-01-08 15:34:54 +00:00
|
|
|
*
|
|
|
|
* Author: Hans van Staveren
|
|
|
|
*/
|
|
|
|
|
|
|
|
chrefcount(regno,amount,tflag) {
|
|
|
|
register struct reginfo *rp;
|
|
|
|
register i;
|
|
|
|
|
|
|
|
rp= &machregs[regno];
|
|
|
|
#if MAXMEMBERS!=0
|
|
|
|
if (rp->r_members[0]==0) {
|
|
|
|
#endif
|
|
|
|
rp->r_refcount += amount;
|
|
|
|
if (tflag)
|
|
|
|
rp->r_tcount += amount;
|
|
|
|
assert(rp->r_refcount >= 0);
|
|
|
|
#if MAXMEMBERS!=0
|
|
|
|
} else
|
|
|
|
for (i=0;i<MAXMEMBERS;i++)
|
|
|
|
if (rp->r_members[i]!=0)
|
|
|
|
chrefcount(rp->r_members[i],amount,tflag);
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
|
|
|
getrefcount(regno) {
|
|
|
|
register struct reginfo *rp;
|
|
|
|
register i,maxcount;
|
|
|
|
|
|
|
|
rp= &machregs[regno];
|
|
|
|
#if MAXMEMBERS!=0
|
|
|
|
if (rp->r_members[0]==0)
|
|
|
|
#endif
|
|
|
|
return(rp->r_refcount);
|
|
|
|
#if MAXMEMBERS!=0
|
|
|
|
else {
|
|
|
|
maxcount=0;
|
|
|
|
for (i=0;i<MAXMEMBERS;i++)
|
|
|
|
if (rp->r_members[i]!=0)
|
|
|
|
maxcount=max(maxcount,getrefcount(rp->r_members[i]));
|
|
|
|
return(maxcount);
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
|
|
|
erasereg(regno) {
|
1988-03-31 10:14:48 +00:00
|
|
|
register struct reginfo *rp = &machregs[regno];
|
1987-01-08 14:10:02 +00:00
|
|
|
register int i;
|
|
|
|
|
1988-03-31 10:14:48 +00:00
|
|
|
#if MAXMEMBERS==0
|
1987-01-08 14:10:02 +00:00
|
|
|
rp->r_contents.t_token = 0;
|
|
|
|
for (i=0;i<TOKENSIZE;i++)
|
|
|
|
rp->r_contents.t_att[i].aw = 0;
|
1985-01-08 15:34:54 +00:00
|
|
|
|
|
|
|
awayreg(regno);
|
|
|
|
#else
|
1988-03-31 10:14:48 +00:00
|
|
|
extern short clashlist[];
|
|
|
|
register short *sp = &clashlist[rp->r_iclash];
|
|
|
|
|
|
|
|
rp->r_contents.t_token = 0;
|
|
|
|
while (*sp) {
|
|
|
|
rp = &machregs[*sp];
|
|
|
|
rp->r_contents.t_token = 0;
|
|
|
|
for (i=0;i<TOKENSIZE;i++)
|
|
|
|
rp->r_contents.t_att[i].aw = 0;
|
|
|
|
awayreg(*sp++);
|
|
|
|
}
|
1985-01-08 15:34:54 +00:00
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
|
|
|
awayreg(regno) {
|
|
|
|
register struct reginfo *rp;
|
1988-03-31 10:14:48 +00:00
|
|
|
register byte *tdpb;
|
1985-01-08 15:34:54 +00:00
|
|
|
register i;
|
|
|
|
|
|
|
|
/* Now erase recursively all registers containing
|
|
|
|
* something using this one
|
|
|
|
*/
|
|
|
|
for (rp=machregs;rp<machregs+NREGS;rp++) {
|
|
|
|
if (rp->r_contents.t_token == -1) {
|
1988-03-31 10:14:48 +00:00
|
|
|
if (rp->r_contents.t_att[0].ar == regno) {
|
|
|
|
/* erasereg(rp-machregs);
|
|
|
|
replaced by the following three
|
|
|
|
lines
|
|
|
|
*/
|
|
|
|
rp->r_contents.t_token = 0;
|
|
|
|
for (i=0;i<TOKENSIZE;i++)
|
|
|
|
rp->r_contents.t_att[i].aw = 0;
|
|
|
|
}
|
1987-01-08 14:10:02 +00:00
|
|
|
} else if (rp->r_contents.t_token > 0) {
|
1988-03-31 10:14:48 +00:00
|
|
|
tdpb= & (tokens[rp->r_contents.t_token].t_type[0]);
|
1985-01-08 15:34:54 +00:00
|
|
|
for (i=0;i<TOKENSIZE;i++)
|
1988-03-31 10:14:48 +00:00
|
|
|
if (*tdpb++ == EV_REG &&
|
1985-01-08 15:34:54 +00:00
|
|
|
rp->r_contents.t_att[i].ar == regno) {
|
1988-03-31 10:14:48 +00:00
|
|
|
/* erasereg(rp-machregs);
|
|
|
|
replaced by the following three
|
|
|
|
lines
|
|
|
|
*/
|
|
|
|
rp->r_contents.t_token = 0;
|
|
|
|
for (i=0;i<TOKENSIZE;i++)
|
|
|
|
rp->r_contents.t_att[i].aw = 0;
|
1985-01-08 15:34:54 +00:00
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
cleanregs() {
|
|
|
|
register struct reginfo *rp;
|
|
|
|
register i;
|
|
|
|
|
|
|
|
for (rp=machregs;rp<machregs+NREGS;rp++) {
|
|
|
|
rp->r_contents.t_token = 0;
|
|
|
|
for (i=0;i<TOKENSIZE;i++)
|
|
|
|
rp->r_contents.t_att[i].aw = 0;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
#ifndef NDEBUG
|
|
|
|
inctcount(regno) {
|
|
|
|
register struct reginfo *rp;
|
|
|
|
register i;
|
|
|
|
|
|
|
|
rp = &machregs[regno];
|
|
|
|
#if MAXMEMBERS!=0
|
|
|
|
if (rp->r_members[0] == 0) {
|
|
|
|
#endif
|
|
|
|
rp->r_tcount++;
|
|
|
|
#if MAXMEMBERS!=0
|
|
|
|
} else {
|
|
|
|
for (i=0;i<MAXMEMBERS;i++)
|
|
|
|
if (rp->r_members[i] != 0)
|
|
|
|
inctcount(rp->r_members[i]);
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
|
|
|
chkregs() {
|
|
|
|
register struct reginfo *rp;
|
|
|
|
register token_p tp;
|
1988-03-31 10:14:48 +00:00
|
|
|
register byte *tdpb;
|
1985-01-08 15:34:54 +00:00
|
|
|
int i;
|
|
|
|
|
|
|
|
for (rp=machregs+1;rp<machregs+NREGS;rp++) {
|
|
|
|
assert(rp->r_tcount==0);
|
|
|
|
}
|
|
|
|
for (tp=fakestack;tp<fakestack+stackheight;tp++) {
|
|
|
|
if (tp->t_token == -1)
|
|
|
|
inctcount(tp->t_att[0].ar);
|
|
|
|
else {
|
1988-03-31 10:14:48 +00:00
|
|
|
tdpb = &(tokens[tp->t_token].t_type[0]);
|
1985-01-08 15:34:54 +00:00
|
|
|
for (i=0;i<TOKENSIZE;i++)
|
1988-03-31 10:14:48 +00:00
|
|
|
if (*tdpb++==EV_REG)
|
1985-01-08 15:34:54 +00:00
|
|
|
inctcount(tp->t_att[i].ar);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
#ifdef REGVARS
|
|
|
|
#include <em_reg.h>
|
|
|
|
for(i=reg_any;i<=reg_float;i++) {
|
|
|
|
int j;
|
|
|
|
for(j=0;j<nregvar[i];j++)
|
|
|
|
inctcount(rvnumbers[i][j]);
|
|
|
|
}
|
|
|
|
#endif REGVARS
|
|
|
|
for (rp=machregs+1;rp<machregs+NREGS;rp++) {
|
|
|
|
assert(rp->r_refcount==rp->r_tcount);
|
|
|
|
rp->r_tcount=0;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
#endif
|