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

Push em_ego.c through clang-format before working on it.

Browse source
This commit is contained in:
David Given 2016-08-21 18:45:25 +02:00
parent 1a7b4f8729
commit 03a0b182c4
2 changed files with 390 additions and 328 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
.clang-format Normal file
View file

@ -0,0 +1,11 @@
---
BasedOnStyle: WebKit
AllowShortLoopsOnASingleLine: 'false'
AlwaysBreakAfterDefinitionReturnType: false
BreakBeforeBraces: Allman
IndentCaseLabels: 'true'
PointerAlignment: Left
TabWidth: '4'
UseTab: ForIndentation
...

263
util/ego/em_ego/em_ego.c
View file

@ -21,7 +21,7 @@
#define CJ 11 #define CJ 11
#define CA 12 #define CA 12
static char *phnames[] = { static char* phnames[] = {
0, 0,
"ic", "ic",
"cf", "cf",
@ -42,13 +42,13 @@ static char *phnames[] = {
#define MAXARGS 1024 /* mar # of args */ #define MAXARGS 1024 /* mar # of args */
#define NTEMPS 4 /* # of temporary files; not tunable */ #define NTEMPS 4 /* # of temporary files; not tunable */
extern char *mktemp(); extern char* mktemp();
extern char *strcpy(), *strcat(); extern char* strcpy(), *strcat();
extern char *strrchr(); extern char* strrchr();
static char ddump[128] = TMP_DIR; /* data label dump file */ static char ddump[128] = TMP_DIR; /* data label dump file */
static char pdump[128] = TMP_DIR; /* procedure name dump file */ static char pdump[128] = TMP_DIR; /* procedure name dump file */
static char tmpbufs[NTEMPS*2][128] = { static char tmpbufs[NTEMPS * 2][128] = {
TMP_DIR TMP_DIR
}; };
@ -64,21 +64,21 @@ static int O4phases[] = { /* Passes for -O4 */
IL, CF, CS, SR, CJ, BO, SP, UD, LV, RA, 0 IL, CF, CS, SR, CJ, BO, SP, UD, LV, RA, 0
}; };
static int *Ophase = &O2phases[0]; /* default : -O2 */ static int* Ophase = &O2phases[0]; /* default : -O2 */
static int nuphases; /* # of phases specified by user */ static int nuphases; /* # of phases specified by user */
static int uphases[MAXUPHASES+1]; /* phases to be run */ static int uphases[MAXUPHASES + 1]; /* phases to be run */
static int nfiles = NTEMPS*2+1; /* leave space for tempfilenames */ static int nfiles = NTEMPS * 2 + 1; /* leave space for tempfilenames */
static char *phargs[MAXARGS+1]; static char* phargs[MAXARGS + 1];
static int keeptemps = 0; static int keeptemps = 0;
static char **phase_args; static char** phase_args;
static int nphase_args; static int nphase_args;
static char *opt_dir; static char* opt_dir;
static char *prog_name; static char* prog_name;
static int v_flag; static int v_flag;
@ -87,23 +87,27 @@ cleanup()
{ {
/* Cleanup temporaries */ /* Cleanup temporaries */
if (! keeptemps) { if (!keeptemps)
{
register int i; register int i;
for (i = NTEMPS*2; i > 0; i--) { for (i = NTEMPS * 2; i > 0; i--)
register char *f = phargs[i]; {
if (f != 0 && *f != '\0' && *f != '-') (void) unlink(f); register char* f = phargs[i];
if (f != 0 && *f != '\0' && *f != '-')
(void)unlink(f);
} }
if (ddump[0] != '\0') (void) unlink(ddump); if (ddump[0] != '\0')
if (pdump[0] != '\0') (void) unlink(pdump); (void)unlink(ddump);
if (pdump[0] != '\0')
(void)unlink(pdump);
} }
} }
/*VARARGS1*/ /*VARARGS1*/
static void static void
fatal(s, s2) fatal(s, s2) char* s;
char *s; char* s2;
char *s2;
{ {
/* A fatal error occurred; exit gracefully */ /* A fatal error occurred; exit gracefully */
@ -116,27 +120,26 @@ fatal(s, s2)
} }
static void static void
add_file(s) add_file(s) char* s;
char *s;
{ {
/* Add an input file to the list */ /* Add an input file to the list */
if (nfiles >= MAXARGS) fatal("too many files"); if (nfiles >= MAXARGS)
fatal("too many files");
phargs[nfiles++] = s; phargs[nfiles++] = s;
} }
static void static void
add_uphase(p) add_uphase(p) int p;
int p;
{ {
/* Add an optimizer phase to the list of phases to run */ /* Add an optimizer phase to the list of phases to run */
if (nuphases >= MAXUPHASES) fatal("too many phases"); if (nuphases >= MAXUPHASES)
fatal("too many phases");
uphases[nuphases++] = p; uphases[nuphases++] = p;
} }
static void static void catch ()
catch()
{ {
/* Catch interrupts and exit gracefully */ /* Catch interrupts and exit gracefully */
@ -151,9 +154,11 @@ old_infiles()
register int i; register int i;
if (phargs[1] == pdump || keeptemps) return; if (phargs[1] == pdump || keeptemps)
return;
for (i = 1; i <= NTEMPS; i++) (void) unlink(phargs[i]); for (i = 1; i <= NTEMPS; i++)
(void)unlink(phargs[i]);
} }
static void static void
@ -162,10 +167,11 @@ get_infiles()
/* Make output temps from previous phase input temps of next phase. */ /* Make output temps from previous phase input temps of next phase. */
register int i; register int i;
register char **dst = &phargs[1]; register char** dst = &phargs[1];
register char **src = &phargs[NTEMPS+1]; register char** src = &phargs[NTEMPS + 1];
for (i = 1; i <= NTEMPS; i++) { for (i = 1; i <= NTEMPS; i++)
{
*dst++ = *src++; *dst++ = *src++;
} }
} }
@ -178,28 +184,31 @@ new_outfiles()
static char dig1 = '1'; static char dig1 = '1';
static char dig2 = '0'; static char dig2 = '0';
register int i; register int i;
register char **dst = &phargs[NTEMPS+1]; register char** dst = &phargs[NTEMPS + 1];
if (! Bindex) { if (!Bindex)
{
Bindex = strrchr(tmpbufs[0], 'B') - tmpbufs[0]; Bindex = strrchr(tmpbufs[0], 'B') - tmpbufs[0];
} }
for (i = 1; i <= NTEMPS; i++) { for (i = 1; i <= NTEMPS; i++)
{
*dst = tmpbufs[tmpindex]; *dst = tmpbufs[tmpindex];
(*dst)[Bindex-1] = dig2; (*dst)[Bindex - 1] = dig2;
(*dst)[Bindex] = dig1; (*dst)[Bindex] = dig1;
tmpindex++; tmpindex++;
dst++; dst++;
} }
if (tmpindex >= 2*NTEMPS) tmpindex = 0; if (tmpindex >= 2 * NTEMPS)
if (++dig1 > '9') { tmpindex = 0;
if (++dig1 > '9')
{
++dig2; ++dig2;
dig1 = '0'; dig1 = '0';
} }
} }
static void static void
run_phase(phase) run_phase(phase) int phase;
int phase;
{ {
/* Run one phase of the global optimizer; special cases are /* Run one phase of the global optimizer; special cases are
IC and CA. IC and CA.
@ -211,15 +220,17 @@ run_phase(phase)
int pid, status; int pid, status;
phargs[0] = buf; phargs[0] = buf;
(void) strcpy(buf, opt_dir); (void)strcpy(buf, opt_dir);
(void) strcat(buf, "/"); (void)strcat(buf, "/");
(void) strcat(buf, phnames[phase]); (void)strcat(buf, phnames[phase]);
switch(phase) { switch (phase)
{
case IC: case IC:
phargs[1] = pdump; phargs[1] = pdump;
phargs[2] = ddump; phargs[2] = ddump;
for (i = 3; i <= NTEMPS; i++) phargs[i] = "-"; for (i = 3; i <= NTEMPS; i++)
phargs[i] = "-";
new_outfiles(); new_outfiles();
argc = nfiles; argc = nfiles;
phargs[argc] = 0; phargs[argc] = 0;
@ -228,10 +239,11 @@ run_phase(phase)
case CA: case CA:
old_infiles(); old_infiles();
get_infiles(); get_infiles();
phargs[NTEMPS+1] = pdump; phargs[NTEMPS + 1] = pdump;
phargs[NTEMPS+2] = ddump; phargs[NTEMPS + 2] = ddump;
for (i = NTEMPS+3; i <= 2*NTEMPS; i++) phargs[i] = "-"; for (i = NTEMPS + 3; i <= 2 * NTEMPS; i++)
argc = 2*NTEMPS+1; phargs[i] = "-";
argc = 2 * NTEMPS + 1;
phargs[argc] = 0; phargs[argc] = 0;
break; break;
@ -239,62 +251,78 @@ run_phase(phase)
old_infiles(); old_infiles();
get_infiles(); get_infiles();
new_outfiles(); new_outfiles();
if (! flags_added) { if (!flags_added)
{
flags_added = 1; flags_added = 1;
argc = 2*NTEMPS+1; argc = 2 * NTEMPS + 1;
while (--nphase_args >= 0) { while (--nphase_args >= 0)
{
phargs[argc++] = *phase_args++; phargs[argc++] = *phase_args++;
} }
phargs[argc] = 0; phargs[argc] = 0;
} }
break; break;
} }
if ((pid = fork()) < 0) { if ((pid = fork()) < 0)
{
fatal("Could not fork"); fatal("Could not fork");
} }
else if (pid == 0) { else if (pid == 0)
if (v_flag) { {
if (v_flag)
{
register int i = 0; register int i = 0;
while (phargs[i]) { while (phargs[i])
{
fprint(STDERR, "%s ", phargs[i]); fprint(STDERR, "%s ", phargs[i]);
i++; i++;
} }
fprint(STDERR, "\n"); fprint(STDERR, "\n");
} }
(void) execv(phargs[0], phargs); (void)execv(phargs[0], phargs);
fatal("Could not exec %s", phargs[0]); fatal("Could not exec %s", phargs[0]);
sys_stop(S_EXIT); sys_stop(S_EXIT);
} }
else { else
while (wait(&status) != pid) /* nothing */ ; {
if ((status & 0177) != 0) { while (wait(&status) != pid) /* nothing */
;
if ((status & 0177) != 0)
{
fatal("%s got a unix signal", phargs[0]); fatal("%s got a unix signal", phargs[0]);
} }
if (((status >> 8) & 0377) != 0) { if (((status >> 8) & 0377) != 0)
{
cleanup(); cleanup();
sys_stop(S_EXIT); sys_stop(S_EXIT);
} }
} }
} }
main(argc, argv) main(argc, argv) int argc;
int argc; char* argv[];
char *argv[];
{ {
register int i = 0; register int i = 0;
if (signal(SIGHUP, catch) == SIG_IGN) (void) signal(SIGHUP, SIG_IGN); if (signal(SIGHUP, catch) == SIG_IGN)
if (signal(SIGQUIT, catch) == SIG_IGN) (void) signal(SIGQUIT, SIG_IGN); (void)signal(SIGHUP, SIG_IGN);
if (signal(SIGINT, catch) == SIG_IGN) (void) signal(SIGINT, SIG_IGN); if (signal(SIGQUIT, catch) == SIG_IGN)
(void)signal(SIGQUIT, SIG_IGN);
if (signal(SIGINT, catch) == SIG_IGN)
(void)signal(SIGINT, SIG_IGN);
prog_name = argv[0]; prog_name = argv[0];
phase_args = &argv[1]; phase_args = &argv[1];
while (--argc > 0) { while (--argc > 0)
{
argv++; argv++;
if (argv[0][0] == '-') { if (argv[0][0] == '-')
switch(argv[0][1]) { {
switch (argv[0][1])
{
case 'P': case 'P':
if (argv[0][2] == '\0') { if (argv[0][2] == '\0')
{
opt_dir = argv[1]; opt_dir = argv[1];
argc--; argc--;
argv++; argv++;
@ -302,7 +330,8 @@ main(argc, argv)
} }
break; break;
case 't': case 't':
if (argv[0][2] == '\0') { if (argv[0][2] == '\0')
{
keeptemps = 1; keeptemps = 1;
/* no continue; IL also needs this */ /* no continue; IL also needs this */
} }
@ -311,60 +340,71 @@ main(argc, argv)
v_flag = 1; v_flag = 1;
break; break;
case 'O': case 'O':
if (argv[0][2] == '2' || argv[0][2] == '\0') continue; if (argv[0][2] == '2' || argv[0][2] == '\0')
if (argv[0][2] == '3') { continue;
if (argv[0][2] == '3')
{
Ophase = &O3phases[0]; Ophase = &O3phases[0];
continue; continue;
} }
Ophase = &O4phases[0]; Ophase = &O4phases[0];
continue; continue;
case 'I': case 'I':
if (! strcmp(&argv[0][1], "IL")) { if (!strcmp(&argv[0][1], "IL"))
{
add_uphase(IL); add_uphase(IL);
add_uphase(CF); add_uphase(CF);
continue; continue;
} }
break; break;
case 'B': case 'B':
if (! strcmp(&argv[0][1], "BO")) { if (!strcmp(&argv[0][1], "BO"))
{
add_uphase(BO); add_uphase(BO);
continue; continue;
} }
break; break;
case 'R': case 'R':
if (! strcmp(&argv[0][1], "RA")) { if (!strcmp(&argv[0][1], "RA"))
{
add_uphase(RA); add_uphase(RA);
continue; continue;
} }
break; break;
case 'U': case 'U':
if (! strcmp(&argv[0][1], "UD")) { if (!strcmp(&argv[0][1], "UD"))
{
add_uphase(UD); add_uphase(UD);
continue; continue;
} }
break; break;
case 'L': case 'L':
if (! strcmp(&argv[0][1], "LV")) { if (!strcmp(&argv[0][1], "LV"))
{
add_uphase(LV); add_uphase(LV);
continue; continue;
} }
break; break;
case 'C': case 'C':
if (! strcmp(&argv[0][1], "CS")) { if (!strcmp(&argv[0][1], "CS"))
{
add_uphase(CS); add_uphase(CS);
continue; continue;
} }
if (! strcmp(&argv[0][1], "CJ")) { if (!strcmp(&argv[0][1], "CJ"))
{
add_uphase(CJ); add_uphase(CJ);
continue; continue;
} }
break; break;
case 'S': case 'S':
if (! strcmp(&argv[0][1], "SR")) { if (!strcmp(&argv[0][1], "SR"))
{
add_uphase(SR); add_uphase(SR);
continue; continue;
} }
if (! strcmp(&argv[0][1], "SP")) { if (!strcmp(&argv[0][1], "SP"))
{
add_uphase(SP); add_uphase(SP);
continue; continue;
} }
@ -372,46 +412,57 @@ main(argc, argv)
} }
phase_args[i++] = argv[0]; phase_args[i++] = argv[0];
} }
else { else
{
add_file(argv[0]); add_file(argv[0]);
} }
} }
phase_args[i] = 0; phase_args[i] = 0;
nphase_args = i; nphase_args = i;
if (nuphases) Ophase = uphases; if (nuphases)
Ophase = uphases;
if (nfiles == 2*NTEMPS+1) { if (nfiles == 2 * NTEMPS + 1)
{
/* 2*NTEMPS+1 was the starting value; nothing to do */ /* 2*NTEMPS+1 was the starting value; nothing to do */
sys_stop(S_END); sys_stop(S_END);
} }
if (! opt_dir) { if (!opt_dir)
{
fatal("no correct -P flag given"); fatal("no correct -P flag given");
} }
if (keeptemps) { if (keeptemps)
(void) strcpy(ddump, "."); {
(void) strcpy(pdump, "."); (void)strcpy(ddump, ".");
(void) strcpy(tmpbufs[0], "."); (void)strcpy(pdump, ".");
(void)strcpy(tmpbufs[0], ".");
} }
(void) strcat(ddump, "/ego.dd.XXXXXX"); (void)strcat(ddump, "/ego.dd.XXXXXX");
(void) mktemp(ddump); (void)mktemp(ddump);
(void) strcat(pdump, "/ego.pd.XXXXXX"); (void)strcat(pdump, "/ego.pd.XXXXXX");
(void) mktemp(pdump); (void)mktemp(pdump);
(void) strcat(tmpbufs[0], "/ego.A.BB.XXXXXX"); (void)strcat(tmpbufs[0], "/ego.A.BB.XXXXXX");
(void) mktemp(tmpbufs[0]); (void)mktemp(tmpbufs[0]);
for (i = 2*NTEMPS-1; i >= 1; i--) { for (i = 2 * NTEMPS - 1; i >= 1; i--)
(void) strcpy(tmpbufs[i], tmpbufs[0]); {
(void)strcpy(tmpbufs[i], tmpbufs[0]);
} }
i = strrchr(tmpbufs[0], 'A') - tmpbufs[0]; i = strrchr(tmpbufs[0], 'A') - tmpbufs[0];
tmpbufs[0][i] = 'p'; tmpbufs[NTEMPS+0][i] = 'p'; tmpbufs[0][i] = 'p';
tmpbufs[1][i] = 'd'; tmpbufs[NTEMPS+1][i] = 'd'; tmpbufs[NTEMPS + 0][i] = 'p';
tmpbufs[2][i] = 'l'; tmpbufs[NTEMPS+2][i] = 'l'; tmpbufs[1][i] = 'd';
tmpbufs[3][i] = 'b'; tmpbufs[NTEMPS+3][i] = 'b'; tmpbufs[NTEMPS + 1][i] = 'd';
tmpbufs[2][i] = 'l';
tmpbufs[NTEMPS + 2][i] = 'l';
tmpbufs[3][i] = 'b';
tmpbufs[NTEMPS + 3][i] = 'b';
run_phase(IC); run_phase(IC);
run_phase(CF); run_phase(CF);
while (*Ophase) { while (*Ophase)
{
run_phase(*Ophase++); run_phase(*Ophase++);
} }
run_phase(CA); run_phase(CA);