if (INSTR(l)==op_stl && size==ws || INSTR(l)==op_sdl && size==2*ws) {
enp = getentity(l, &dummy);
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;
}
}
fprintf(stderr," %d", OBJ(lnp)->o_id);
break;
case OPOFFSET:
- fprintf(stderr," %D", OFFSET(lnp));
+ fprintf(stderr," %ld", OFFSET(lnp));
break;
default:
fprintf(stderr," ?");
register entity_p rep = en_elem(i);
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);
switch (rep->en_kind) {
case ENCONST:
- fprintf(stderr,"$%D\n", rep->en_val);
+ fprintf(stderr,"$%ld\n", rep->en_val);
break;
case ENLOCAL:
case ENALOCAL:
- fprintf(stderr,"%D(LB)\n", rep->en_loc);
+ fprintf(stderr,"%ld(LB)\n", rep->en_loc);
break;
case ENINDIR:
fprintf(stderr,"*%d\n", rep->en_ind);
break;
case ENOFFSETTED:
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;
case ENALOCBASE:
case ENAARGBASE:
- fprintf(stderr,"%D levels\n", rep->en_levels);
+ fprintf(stderr,"%ld levels\n", rep->en_levels);
break;
case ENARRELEM:
fprintf(stderr,"%d[%d], ",rep->en_arbase,rep->en_index);
if (ravp->av_saveloc != (entity_p) 0) {
tmp = ravp->av_saveloc->en_loc;
mes = find_mesreg(tmp);
- OUTVERBOSE("re-using %D(LB)", tmp);
+ OUTVERBOSE("re-using %ld(LB)", tmp);
} else {
tmp = tmplocal(pp, ravp->av_size);
mes = gen_mesreg(tmp, ravp, pp);
printf("id of external = %d\n",
item->i_t.it_obj->o_id);
} else {
- printf("offset = %D\n",
+ printf("offset = %ld\n",
item->i_t.it_off);
}
printf("regtype = %s\n",str_regtypes[item->it_regtype]);
fprintf(stderr,"id = %d]\n", item->i_t.it_proc->p_id);
break;
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(dyn) = %d\n",al->al_dusecount);
}
fprintf(stderr,"} \n");
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);
}
}
*time_out = (m == (cond_p) 0 ? -1 : map_value(m,off,TRUE));
*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);
*/
}
*time_out = (m == (cond_p) 0 ? 1000 : map_value(m,off,TRUE));
*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);
*/
}
#define space1() printf(" ")
char format[] = " %-11s%d\n";
-char lformat[] = " %-11s%D\n";
+char lformat[] = " %-11s%ld\n";
char sformat[] = " %-10s%s\n";
char dformat[] = " %-11s%d\n";
-char oformat[] = " %-11s%D\n";
+char oformat[] = " %-11s%ld\n";
printf(" *%d",getshort());
break;
case OPOFFSET:
- printf(" %D", getoff());
+ printf(" %ld", getoff());
break;
case OPLIST:
arglist();
printf(" *%d",getshort());
break;
case ARGOFF:
- printf(" %D", getoff());
+ printf(" %ld", getoff());
break;
case ARGICN:
case ARGUCN:
for (i = 1; i <= nrlocals; i++) {
lc = locals[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(" flags= %d\n",lc->lc_flags);
}
printf("%d\n",SHORT(l));
break;
case OPOFFSET:
- printf("%D\n",OFFSET(l));
+ printf("%ld\n",OFFSET(l));
break;
case OPOBJECT:
printf("%d\n",OBJ(l)->o_id);
if (TYPE(old) == OPOBJECT) {
printf("global var.");
} 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);
assert(ok);
loc = locals[nr];
- printf(",score %D",loc->lc_score);
+ printf(",score %ld",loc->lc_score);
}
printf(" replaced by ");
if (TYPE(new) == OPOBJECT) {
printf("global var.");
} 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);
assert(ok);
loc = locals[nr];
- printf(",score %D",loc->lc_score);
+ printf(",score %ld",loc->lc_score);
}
printf("\n");
END DEBUG */