Next batch...

This commit is contained in:
Manoel Trapier
2013-03-13 18:56:03 +01:00
committed by Manoël Trapier
parent c5bfc89269
commit 41f96d5169
85 changed files with 1138 additions and 1727 deletions

View File

@@ -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);