replaced some %D's

This commit is contained in:
ceriel 1987-02-09 17:28:22 +00:00
parent 8b15b193a2
commit 17ddf81681
8 changed files with 23 additions and 23 deletions

View file

@ -101,7 +101,7 @@ STATIC entity_p result_local(size, l)
if (INSTR(l)==op_stl && size==ws || INSTR(l)==op_sdl && size==2*ws) { if (INSTR(l)==op_stl && size==ws || INSTR(l)==op_sdl && size==2*ws) {
enp = getentity(l, &dummy); enp = getentity(l, &dummy);
if (is_regvar(enp->en_loc)) { if (is_regvar(enp->en_loc)) {
OUTTRACE("save local found, %D(LB)", enp->en_loc); OUTTRACE("save local found, %ld(LB)", enp->en_loc);
return enp; return enp;
} }
} }

View file

@ -35,7 +35,7 @@ STATIC showinstr(lnp)
fprintf(stderr," %d", OBJ(lnp)->o_id); fprintf(stderr," %d", OBJ(lnp)->o_id);
break; break;
case OPOFFSET: case OPOFFSET:
fprintf(stderr," %D", OFFSET(lnp)); fprintf(stderr," %ld", OFFSET(lnp));
break; break;
default: default:
fprintf(stderr," ?"); fprintf(stderr," ?");
@ -114,26 +114,26 @@ OUTENTITIES()
register entity_p rep = en_elem(i); register entity_p rep = en_elem(i);
fprintf(stderr,"%s,", enkinds[rep->en_kind]); fprintf(stderr,"%s,", enkinds[rep->en_kind]);
fprintf(stderr,"size %D,", rep->en_size); fprintf(stderr,"size %ld,", rep->en_size);
fprintf(stderr,"valno %d,", rep->en_vn); fprintf(stderr,"valno %d,", rep->en_vn);
switch (rep->en_kind) { switch (rep->en_kind) {
case ENCONST: case ENCONST:
fprintf(stderr,"$%D\n", rep->en_val); fprintf(stderr,"$%ld\n", rep->en_val);
break; break;
case ENLOCAL: case ENLOCAL:
case ENALOCAL: case ENALOCAL:
fprintf(stderr,"%D(LB)\n", rep->en_loc); fprintf(stderr,"%ld(LB)\n", rep->en_loc);
break; break;
case ENINDIR: case ENINDIR:
fprintf(stderr,"*%d\n", rep->en_ind); fprintf(stderr,"*%d\n", rep->en_ind);
break; break;
case ENOFFSETTED: case ENOFFSETTED:
case ENAOFFSETTED: case ENAOFFSETTED:
fprintf(stderr,"%D(%d)\n", rep->en_off, rep->en_base); fprintf(stderr,"%ld(%d)\n", rep->en_off, rep->en_base);
break; break;
case ENALOCBASE: case ENALOCBASE:
case ENAARGBASE: case ENAARGBASE:
fprintf(stderr,"%D levels\n", rep->en_levels); fprintf(stderr,"%ld levels\n", rep->en_levels);
break; break;
case ENARRELEM: case ENARRELEM:
fprintf(stderr,"%d[%d], ",rep->en_arbase,rep->en_index); fprintf(stderr,"%d[%d], ",rep->en_arbase,rep->en_index);

View file

@ -270,7 +270,7 @@ eliminate(pp)
if (ravp->av_saveloc != (entity_p) 0) { if (ravp->av_saveloc != (entity_p) 0) {
tmp = ravp->av_saveloc->en_loc; tmp = ravp->av_saveloc->en_loc;
mes = find_mesreg(tmp); mes = find_mesreg(tmp);
OUTVERBOSE("re-using %D(LB)", tmp); OUTVERBOSE("re-using %ld(LB)", tmp);
} else { } else {
tmp = tmplocal(pp, ravp->av_size); tmp = tmplocal(pp, ravp->av_size);
mes = gen_mesreg(tmp, ravp, pp); mes = gen_mesreg(tmp, ravp, pp);

View file

@ -436,7 +436,7 @@ print_items(items,p)
printf("id of external = %d\n", printf("id of external = %d\n",
item->i_t.it_obj->o_id); item->i_t.it_obj->o_id);
} else { } else {
printf("offset = %D\n", printf("offset = %ld\n",
item->i_t.it_off); item->i_t.it_off);
} }
printf("regtype = %s\n",str_regtypes[item->it_regtype]); printf("regtype = %s\n",str_regtypes[item->it_regtype]);
@ -476,7 +476,7 @@ print_allocs(list)
fprintf(stderr,"id = %d]\n", item->i_t.it_proc->p_id); fprintf(stderr,"id = %d]\n", item->i_t.it_proc->p_id);
break; break;
default: default:
fprintf(stderr,"offset = %D]\n", item->i_t.it_off); fprintf(stderr,"offset = %ld]\n", item->i_t.it_off);
} }
fprintf(stderr,"#usages(static) = %d\n",al->al_susecount); fprintf(stderr,"#usages(static) = %d\n",al->al_susecount);
fprintf(stderr,"#usages(dyn) = %d\n",al->al_dusecount); fprintf(stderr,"#usages(dyn) = %d\n",al->al_dusecount);
@ -494,7 +494,7 @@ print_allocs(list)
} }
fprintf(stderr,"} \n"); fprintf(stderr,"} \n");
fprintf(stderr,"profits = %d\n",al->al_profits); fprintf(stderr,"profits = %d\n",al->al_profits);
fprintf(stderr,"dummy local = %D\n",al->al_dummy); fprintf(stderr,"dummy local = %ld\n",al->al_dummy);
fprintf(stderr,"regnr = %d\n",al->al_regnr); fprintf(stderr,"regnr = %d\n",al->al_regnr);
} }
} }

View file

@ -90,7 +90,7 @@ allocscore(itemtyp,localtyp,size,off,totyp,time_out,space_out)
*time_out = (m == (cond_p) 0 ? -1 : map_value(m,off,TRUE)); *time_out = (m == (cond_p) 0 ? -1 : map_value(m,off,TRUE));
*space_out = (m == (cond_p) 0 ? -1 : map_value(m,off,FALSE)); *space_out = (m == (cond_p) 0 ? -1 : map_value(m,off,FALSE));
/* /*
printf("itemtyp = %d, localtyp = %d off = %D\n",itemtyp,localtyp,off); printf("itemtyp = %d, localtyp = %d off = %ld\n",itemtyp,localtyp,off);
printf("ALLOCSCORE = (%d,%d)\n",*time_out,*space_out); printf("ALLOCSCORE = (%d,%d)\n",*time_out,*space_out);
*/ */
} }
@ -126,7 +126,7 @@ opening_cost(itemtyp,localtyp,off,time_out,space_out)
*time_out = (m == (cond_p) 0 ? 1000 : map_value(m,off,TRUE)); *time_out = (m == (cond_p) 0 ? 1000 : map_value(m,off,TRUE));
*space_out = (m == (cond_p) 0 ? 1000 : map_value(m,off,FALSE)); *space_out = (m == (cond_p) 0 ? 1000 : map_value(m,off,FALSE));
/* /*
printf("itemtyp = %d, localtyp = %d off = %D\n",itemtyp,localtyp,off); printf("itemtyp = %d, localtyp = %d off = %ld\n",itemtyp,localtyp,off);
printf("OPEN_COST = (%d,%d)\n",*time_out,*space_out); printf("OPEN_COST = (%d,%d)\n",*time_out,*space_out);
*/ */
} }

View file

@ -28,10 +28,10 @@ extern byte em_flag[];
#define space1() printf(" ") #define space1() printf(" ")
char format[] = " %-11s%d\n"; char format[] = " %-11s%d\n";
char lformat[] = " %-11s%D\n"; char lformat[] = " %-11s%ld\n";
char sformat[] = " %-10s%s\n"; char sformat[] = " %-10s%s\n";
char dformat[] = " %-11s%d\n"; char dformat[] = " %-11s%d\n";
char oformat[] = " %-11s%D\n"; char oformat[] = " %-11s%ld\n";
@ -263,7 +263,7 @@ showinstr()
printf(" *%d",getshort()); printf(" *%d",getshort());
break; break;
case OPOFFSET: case OPOFFSET:
printf(" %D", getoff()); printf(" %ld", getoff());
break; break;
case OPLIST: case OPLIST:
arglist(); arglist();
@ -296,7 +296,7 @@ arglist()
printf(" *%d",getshort()); printf(" *%d",getshort());
break; break;
case ARGOFF: case ARGOFF:
printf(" %D", getoff()); printf(" %ld", getoff());
break; break;
case ARGICN: case ARGICN:
case ARGUCN: case ARGUCN:

View file

@ -266,7 +266,7 @@ pr_localtab() {
for (i = 1; i <= nrlocals; i++) { for (i = 1; i <= nrlocals; i++) {
lc = locals[i]; lc = locals[i];
printf("LOCAL %d\n",i); printf("LOCAL %d\n",i);
printf(" offset= %D\n",lc->lc_off); printf(" offset= %ld\n",lc->lc_off);
printf(" size= %d\n",lc->lc_size); printf(" size= %d\n",lc->lc_size);
printf(" flags= %d\n",lc->lc_flags); printf(" flags= %d\n",lc->lc_flags);
} }
@ -305,7 +305,7 @@ pr_defs()
printf("%d\n",SHORT(l)); printf("%d\n",SHORT(l));
break; break;
case OPOFFSET: case OPOFFSET:
printf("%D\n",OFFSET(l)); printf("%ld\n",OFFSET(l));
break; break;
case OPOBJECT: case OPOBJECT:
printf("%d\n",OBJ(l)->o_id); printf("%d\n",OBJ(l)->o_id);

View file

@ -323,21 +323,21 @@ fold_var(old,new,b)
if (TYPE(old) == OPOBJECT) { if (TYPE(old) == OPOBJECT) {
printf("global var."); printf("global var.");
} else { } else {
printf("local var. with off. %D",off_set(old)); printf("local var. with off. %ld",off_set(old));
find_local(off_set(old),&nr,&ok); find_local(off_set(old),&nr,&ok);
assert(ok); assert(ok);
loc = locals[nr]; loc = locals[nr];
printf(",score %D",loc->lc_score); printf(",score %ld",loc->lc_score);
} }
printf(" replaced by "); printf(" replaced by ");
if (TYPE(new) == OPOBJECT) { if (TYPE(new) == OPOBJECT) {
printf("global var."); printf("global var.");
} else { } else {
printf("local var. with off. %D",off_set(new)); printf("local var. with off. %ld",off_set(new));
find_local(off_set(new),&nr,&ok); find_local(off_set(new),&nr,&ok);
assert(ok); assert(ok);
loc = locals[nr]; loc = locals[nr];
printf(",score %D",loc->lc_score); printf(",score %ld",loc->lc_score);
} }
printf("\n"); printf("\n");
END DEBUG */ END DEBUG */