d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Variable nregvars had a name clash with the array nregvar[] in the

Browse source 
file tables.c. That was different in the 8'th character (!"#$%&'()_).
These variables should actually be static.
This commit is contained in:
sater 1984-08-23 17:07:53 +00:00
parent 0d48be448f
commit 2bf16c5b2f
1 changed files with 8 additions and 8 deletions

16
mach/pdp/cg/mach.c
View file

@ -77,7 +77,7 @@ struct regadm {
char *ra_str; char *ra_str;
long ra_off; long ra_off;
} regadm[2]; } regadm[2];
int nregvars; int n_regvars;
regscore(off,size,typ,score,totyp) long off; { regscore(off,size,typ,score,totyp) long off; {
@ -98,13 +98,13 @@ regscore(off,size,typ,score,totyp) long off; {
i_regsave() { i_regsave() {
Rstring[0] = 0; Rstring[0] = 0;
nregvars=0; n_regvars=0;
} }
f_regsave() { f_regsave() {
register i; register i;
if (nregvars==0 || lbytes==0) { if (n_regvars==0 || lbytes==0) {
#ifdef REGPATCH #ifdef REGPATCH
fprintf(codefile,"mov r2,-(sp)\nmov r4,-(sp)\n"); fprintf(codefile,"mov r2,-(sp)\nmov r4,-(sp)\n");
#endif #endif
@ -113,7 +113,7 @@ f_regsave() {
fprintf(codefile,"tst -(sp)\n"); fprintf(codefile,"tst -(sp)\n");
else if (lbytes!=0) else if (lbytes!=0)
fprintf(codefile,"sub $0%o,sp\n",lbytes); fprintf(codefile,"sub $0%o,sp\n",lbytes);
for (i=0;i<nregvars;i++) for (i=0;i<n_regvars;i++)
fprintf(codefile,"mov %s,-(sp)\n",regadm[i].ra_str); fprintf(codefile,"mov %s,-(sp)\n",regadm[i].ra_str);
} else { } else {
if (lbytes>6) { if (lbytes>6) {
@ -123,7 +123,7 @@ f_regsave() {
fprintf(codefile,"jsr r5,PR%d%s\n",lbytes,Rstring); fprintf(codefile,"jsr r5,PR%d%s\n",lbytes,Rstring);
} }
} }
for (i=0;i<nregvars;i++) for (i=0;i<n_regvars;i++)
if (regadm[i].ra_off>=0) if (regadm[i].ra_off>=0)
fprintf(codefile,"mov 0%lo(r5),%s\n",regadm[i].ra_off, fprintf(codefile,"mov 0%lo(r5),%s\n",regadm[i].ra_off,
regadm[i].ra_str); regadm[i].ra_str);
@ -142,9 +142,9 @@ regsave(regstr,off,size) char *regstr; long off; {
end of commented away */ end of commented away */
strcat(Rstring,regstr); strcat(Rstring,regstr);
regadm[nregvars].ra_str = regstr; regadm[n_regvars].ra_str = regstr;
regadm[nregvars].ra_off = off; regadm[n_regvars].ra_off = off;
nregvars++; n_regvars++;
} }
regreturn() { regreturn() {