Next batch...
This commit is contained in:
committed by
Manoël Trapier
parent
c5bfc89269
commit
41f96d5169
@@ -17,8 +17,7 @@
|
||||
|
||||
extern char em_mnem[]; /* The mnemonics of the EM instructions. */
|
||||
|
||||
STATIC showinstr(lnp)
|
||||
line_p lnp;
|
||||
static void showinstr(line_p lnp)
|
||||
{
|
||||
/* Makes the instruction in `lnp' human readable. Only lines that
|
||||
* can occur in expressions that are going to be eliminated are
|
||||
@@ -49,12 +48,11 @@ STATIC showinstr(lnp)
|
||||
fprintf(stderr,"\n");
|
||||
}
|
||||
|
||||
SHOWOCCUR(ocp)
|
||||
occur_p ocp;
|
||||
void SHOWOCCUR(occur_p ocp)
|
||||
{
|
||||
/* Shows all instructions in an occurrence. */
|
||||
|
||||
register line_p lnp, next;
|
||||
line_p lnp, next;
|
||||
|
||||
if (verbose_flag) {
|
||||
for (lnp = ocp->oc_lfirst; lnp != (line_p) 0; lnp = next) {
|
||||
@@ -69,8 +67,7 @@ SHOWOCCUR(ocp)
|
||||
|
||||
#ifdef TRACE
|
||||
|
||||
SHOWAVAIL(avp)
|
||||
avail_p avp;
|
||||
void SHOWAVAIL(avail_p avp)
|
||||
{
|
||||
/* Shows an available expression. */
|
||||
showinstr(avp->av_found);
|
||||
@@ -79,9 +76,9 @@ SHOWAVAIL(avp)
|
||||
|
||||
}
|
||||
|
||||
OUTAVAILS()
|
||||
void OUTAVAILS()
|
||||
{
|
||||
register avail_p ravp;
|
||||
avail_p ravp;
|
||||
|
||||
fprintf(stderr,"AVAILABLE EXPRESSIONS\n");
|
||||
|
||||
@@ -91,7 +88,7 @@ OUTAVAILS()
|
||||
}
|
||||
}
|
||||
|
||||
STATIC char *enkinds[] = {
|
||||
static char *enkinds[] = {
|
||||
"constant",
|
||||
"local",
|
||||
"external",
|
||||
@@ -110,13 +107,13 @@ STATIC char *enkinds[] = {
|
||||
"ignore mask"
|
||||
};
|
||||
|
||||
OUTENTITIES()
|
||||
void OUTENTITIES()
|
||||
{
|
||||
register Lindex i;
|
||||
Lindex i;
|
||||
|
||||
fprintf(stderr,"ENTITIES\n");
|
||||
for (i = Lfirst(entities); i != (Lindex) 0; i = Lnext(i, entities)) {
|
||||
register entity_p rep = en_elem(i);
|
||||
entity_p rep = en_elem(i);
|
||||
|
||||
fprintf(stderr,"%s,", enkinds[rep->en_kind]);
|
||||
fprintf(stderr,"size %ld,", rep->en_size);
|
||||
|
||||
Reference in New Issue
Block a user