int findvars2(void)
{
switch(findvars2_state) {
case 0:
if (!str0_copy(&n,0,&inputfield)) return -1;
findvars2_state = 1; return 1;
case 1:
if (str0_equalc(&inputfield,"label")) { findvars2_state = 10; return 1; }
if (str0_equalc(&inputfield,"type")) { findvars2_state = 20; return 1; }
break;
case 10:
if (!str0_copy(&key,0,&inputfield)) return -1;
if (!str0_concatc(&key,0,":")) return -1;
if (!str0_concat(&key,0,&n)) return -1;
if (!critbit0_insert(&labels,0,&key)) return -1;
break;
case 20:
if (!str0_copy(&key,0,&inputfield)) return -1;
findvars2_state = 21; return 1;
case 21:
if (!str0_concatc(&key,0,":")) return -1;
if (!str0_concat(&key,0,&inputfield)) return -1;
if (!critbit0_insert(&vtypes,0,&key)) return -1;
if (!critbit0_insert(&alltypes,0,&inputfield)) return -1;
break;
}
return 0;
}
int findentries2(void)
{
switch(findentries2_state) {
case 0:
if (!str0_copy(&n,0,&inputfield)) return -1;
if (!str0_copy(&next,0,&inputfield)) return -1;
if (!str0_increment(&next,0)) return -1;
findentries2_state = 1; return 1;
case 1:
if (str0_equalc(&inputfield,"leave")) { findentries2_state = 20; return 1; }
if (str0_equalc(&inputfield,"goto")) { findentries2_state = 30; return 1; }
if (!str0_copy(&key,0,&n)) return -1;
if (!str0_concatc(&key,0,":")) return -1;
if (!str0_concat(&key,0,&next)) return -1;
if (!critbit0_insert(&nextinsn,0,&key)) return -1;
if (str0_equalc(&inputfield,"maybegoto")) { findentries2_state = 30; return 1; }
if (str0_equalc(&inputfield,"enter")) { findentries2_state = 10; return 1; }
break;
case 10:
if (!critbit0_insert(&blockbegins,0,&n)) return -1;
if (!critbit0_insert(&entries,0,&n)) return -1;
if (critbit0_allprefixed(&inputregs,0,&v,&empty,findentries3) < 1) nomem();
break;
case 20:
if (!critbit0_insert(&exits,0,&n)) return -1;
if (critbit0_allprefixed(&outputregs,0,&v,&empty,findexits3) < 1) nomem();
break;
case 30:
if (!critbit0_insert(&blockbegins,0,&next)) return -1;
if (!str0_copy(&key,0,&inputfield)) return -1;
if (!str0_concatc(&key,0,":")) return -1;
switch(critbit0_firstprefixed(&labels,0,&next,&key)) {
case 1:
break;
case 0:
if (!str0_copyc(&outputline,0,"error:unknown label ")) return -1;
if (!str0_concat(&outputline,0,&key)) return -1;
if (!str0_concat(&outputline,0,&inputline)) return -1;
str0_putline(&outputline);
return 0;
default:
return -1;
}
if (!critbit0_insert(&blockbegins,0,&next)) return -1;
if (!str0_copy(&key,0,&n)) return -1;
if (!str0_concatc(&key,0,":")) return -1;
if (!str0_concat(&key,0,&next)) return -1;
if (!critbit0_insert(&nextinsn,0,&key)) return -1;
}
return 0;
}
int finduses_reglimit(int alpha)
{
switch(finduses_reglimit_state) {
case 0:
if (!str0_equalc(&inputword,"=")) return 0;
finduses_reglimit_state = 1; return 1;
case 1:
if (!str0_copy(&type,0,&inputword)) return -1;
finduses_reglimit_state = 2; return 1;
case 2:
if (!str0_equalc(&inputword,"#")) return 0;
finduses_reglimit_state = 3; return 1;
case 3:
if (!str0_copy(&key,0,®limit)) return -1;
if (!str0_concatc(&key,0,":")) return -1;
if (!str0_concat(&key,0,&type)) return -1;
if (!str0_concatc(&key,0,"#")) return -1;
if (!str0_concat(&key,0,&inputword)) return -1;
if (!critbit0_insert(®limitok,0,&key)) return -1;
break;
}
return 0;
}
int convertword(int alpha)
{
switch(convertword_state) {
case 0: case 2:
if (str0_equalc(&inputword,"inplace")) { convertword_state = 2; return 1; }
if (!str0_equalc(&inputword,">") && !str0_equalc(&inputword,"<")) return 0;
if (!str0_copy(&key,0,&n)) return -1;
if (convertword_state == 2) {
if (!str0_concatc(&key,0,"<")) return -1;
} else {
if (!str0_concat(&key,0,&inputword)) return -1;
}
convertword_state = 10;
return 1;
case 10:
if (!str0_concat(&key,0,&inputword)) return -1;
if (!str0_concatc(&key,0,":")) return -1;
switch(critbit0_firstprefixed(&values,0,&x,&key)) {
case 1: break;
case 0: return 0;
default: return -1;
}
if (!str0_copy(&key,0,&x)) return -1;
if (!str0_concatc(&key,0,":")) return -1;
switch(critbit0_firstprefixed(&allocations,0,&y,&key)) {
case 1: break;
case 0: return 0;
default: return -1;
}
if (!str0_concatc(&outputline,0,"#")) return -1;
if (!str0_concat(&outputline,0,&x)) return -1;
if (!str0_concatc(&outputline,0,"=")) return -1;
if (!str0_concat(&outputline,0,&y)) return -1;
return 0;
}
}
int critbit0_delete(critbit0_tree *t,limitmalloc_pool *pool,str0 *u)
{
const uint8 *ubytes = (void *) *u;
int64 ulen = str0_length(u);
uint8 *p = t->root;
void **wherep = &t->root;
void **whereq = 0;
critbit0_node *q = 0;
uint32 byte;
uint32 otherbits;
uint8 c;
int direction;
if (!p) return 0; /* S = {} */
while (1 & (int) p) {
whereq = wherep;
q = (void *) (p - 1);
byte = q->byte;
otherbits = q->otherbits;
c = 0;
if (byte < ulen) c = ubytes[byte];
direction = (1 + (otherbits | c)) >> 8;
wherep = q->child + direction;
p = *wherep;
}
if (!str0_equalc(u,(const char *) p)) return 0;
limitmalloc_close(pool,ulen + 1,p);
if (!whereq) { /* #S = 1 */
t->root = 0;
return 1;
}
*whereq = q->child[1 - direction];
limitmalloc_close(pool,sizeof(critbit0_node),q);
return 1;
}
int str0_equal(str0 *s,str0 *t)
{
return str0_equalc(s,*t);
}
int allocate_alive(void)
{
if (!str0_copy(&key,0,&x)) return -1;
if (!str0_concat(&key,0,&v)) return -1;
if (!str0_concatc(&key,0,":")) return -1;
if (critbit0_firstprefixed(&values,0,&y,&key) < 1) return -1;
if (critbit0_contains(&livevalues,&y)) return 1;
if (!str0_copy(&key,0,&v)) return -1;
if (!str0_concatc(&key,0,":")) return -1;
if (critbit0_firstprefixed(&vtypes,0,&type,&key) < 1) return -1;
if (str0_equalc(&type,"flags")) return 1; /* XXX */
if (allocate_state == 1) {
if (!str0_copy(&key,0,&type)) return -1;
if (!str0_concatc(&key,0,":")) return -1;
if (critbit0_allprefixed(&livevaluetypes,0,&z,&key,recordconflict) < 1) return -1;
}
if (!critbit0_insert(&livevalues,0,&y)) return -1;
if (!str0_copy(&key,0,&type)) return -1;
if (!str0_concatc(&key,0,":")) return -1;
if (!str0_concat(&key,0,&y)) return -1;
if (!critbit0_insert(&livevaluetypes,0,&key)) return -1;
if (allocate_state == 2) {
switch(critbit0_insert(&allocated,0,&y)) {
case 2:
break;
case 1:
if (!str0_copy(&key,0,&y)) return -1;
if (!str0_concatc(&key,0,":")) return -1;
if (critbit0_firstprefixed(&allocations,0,&z,&key) < 1) return -1;
if (critbit0_contains(&liveregs,&z)) {
if (!str0_copyc(&outputline,0,"error:internal register misassignment:")) return -1;
if (!str0_concat(&outputline,0,&z)) return -1;
str0_putline(&outputline);
}
if (!critbit0_insert(&liveregs,0,&z)) return -1;
if (str0_equalc(&type,"float80")) {
if (!str0_copy(&key,0,&v)) return -1;
if (!str0_concatc(&key,0,"#")) return -1;
if (!str0_concat(&key,0,&y)) return -1;
if (!str0_concatc(&key,0,"=")) return -1;
if (!str0_concat(&key,0,&z)) return -1;
if (!critbit0_insert(&livefloat80regs,0,&key)) return -1;
}
return 1;
default:
return -1;
}
if (!str0_copyc(&r,0,"1")) return -1;
for (;;) {
if (!str0_copy(&key,0,&type)) return -1;
if (!str0_concatc(&key,0,"#")) return -1;
if (!str0_concat(&key,0,&r)) return -1;
if (!critbit0_contains(&liveregs,&key)) {
if (!str0_copy(&key,0,&y)) return -1;
if (!str0_concatc(&key,0,":")) return -1;
if (!str0_concat(&key,0,&type)) return -1;
if (!str0_concatc(&key,0,"#")) return -1;
if (!str0_concat(&key,0,&r)) return -1;
if (!critbit0_contains(&avoidregs,&key)) break;
}
if (!str0_increment(&r,0)) return -1;
}
if (!str0_copy(&key,0,&type)) return -1;
if (!str0_concatc(&key,0,"#")) return -1;
if (!str0_concat(&key,0,&r)) return -1;
if (!critbit0_insert(&liveregs,0,&key)) return -1;
if (str0_equalc(&type,"float80")) {
if (!str0_copy(&z,0,&v)) return -1;
if (!str0_concatc(&z,0,"#")) return -1;
if (!str0_concat(&z,0,&y)) return -1;
if (!str0_concatc(&z,0,"=")) return -1;
if (!str0_concat(&z,0,&key)) return -1;
if (!critbit0_insert(&livefloat80regs,0,&z)) return -1;
}
if (!str0_copy(&key,0,&y)) return -1;
if (!str0_concatc(&key,0,":")) return -1;
if (!str0_concat(&key,0,&type)) return -1;
if (!str0_concatc(&key,0,"#")) return -1;
if (!str0_concat(&key,0,&r)) return -1;
if (!critbit0_insert(&allocations,0,&key)) return -1;
if (!str0_copy(&key,0,&y)) return -1;
if (!str0_concatc(&key,0,":")) return -1;
if (!str0_copy(&u,0,&type)) return -1;
if (!str0_concatc(&u,0,"#")) return -1;
if (!str0_concat(&u,0,&r)) return -1;
if (critbit0_allprefixed(&conflicts,0,&z,&key,followconflict) < 1) return -1;
return 1;
}
return 1;
}
int traceassignment(void)
{
int flagstarting;
critbit0_clear(&traced,0);
critbit0_clear(&totrace,0);
if (!critbit0_insert(&totrace,0,&v)) return -1;
for (flagstarting = 1;;flagstarting = 0) {
switch(critbit0_firstprefixed(&totrace,0,&x,&empty)) {
case 1:
break;
case 0:
if (traceassignment_state == 1) {
if (!critbit0_insert(&finalreads,0,&v)) return -1;
}
return 1;
default:
return -1;
}
critbit0_delete(&totrace,0,&x);
if (traceassignment_state == 1)
if (!flagstarting)
if (str0_equal(&v,&x))
return 1;
switch(critbit0_insert(&traced,0,&x)) {
case 2: break;
case 1: continue;
default: return -1;
}
traceword_state = 0;
switch(str0_word(&y,0,&x,traceword)) {
case 1:
if (str0_equalc(&tracestatus,"<")) {
if (traceassignment_state == 2) {
if (!critbit0_insert(&blocklive,0,&v)) return -1;
return 1;
}
if (traceassignment_state == 1) {
if (!flagstarting) {
return 1;
}
break;
}
if (!str0_copy(&key,0,&v)) return -1;
if (!str0_concatc(&key,0,":")) return -1;
if (!str0_concat(&key,0,&x)) return -1;
if (!critbit0_insert(&assignusegraph,0,&key)) return -1;
if (!str0_copy(&key,0,&x)) return -1;
if (!str0_concatc(&key,0,":")) return -1;
if (!str0_concat(&key,0,&v)) return -1;
if (!critbit0_insert(&assignusegraph,0,&key)) return -1;
} else if (str0_equalc(&tracestatus,"=")) {
if (critbit0_contains(&blockends,&traceinsn)) {
if (!str0_copy(&key,0,&traceinsn)) return -1;
if (!str0_concatc(&key,0,":")) return -1;
if (critbit0_allprefixed(&nextinsn,0,&y,&key,connectblocks) < 1) return -1;
}
if (critbit0_contains(&blockbegins,&traceinsn)) {
if (!str0_copy(&key,0,&traceinsn)) return -1;
if (!str0_concatc(&key,0,":")) return -1;
if (!str0_concat(&key,0,&tracevar)) return -1;
if (!str0_copy(&key,0,&traceinsn)) return -1;
if (!str0_concatc(&key,0,"=")) return -1;
if (!str0_concat(&key,0,&tracevar)) return -1;
if (!critbit0_insert(&blockvisible,0,&key)) return -1;
if (!critbit0_contains(&blockkilled,&key)) {
if (!str0_copy(&key,0,&traceinsn)) return -1;
if (!str0_concatc(&key,0,":")) return -1;
switch(critbit0_firstprefixed(&blockleaps,0,&next,&key)) {
case 0:
break;
case 1:
if (!str0_copy(&key,0,&next)) return -1;
if (!str0_concatc(&key,0,"=")) return -1;
if (!str0_concat(&key,0,&tracevar)) return -1;
if (!critbit0_insert(&totrace,0,&key)) return -1;
if (!str0_copy(&key,0,&traceinsn)) return -1;
if (!str0_concatc(&key,0,"=")) return -1;
if (!str0_concat(&key,0,&tracevar)) return -1;
if (!str0_concatc(&key,0,":")) return -1;
if (!str0_concat(&key,0,&next)) return -1;
if (!str0_concatc(&key,0,"=")) return -1;
if (!str0_concat(&key,0,&tracevar)) return -1;
if (!critbit0_insert(&assignusegraph,0,&key)) return -1;
if (!str0_copy(&key,0,&next)) return -1;
if (!str0_concatc(&key,0,"=")) return -1;
if (!str0_concat(&key,0,&tracevar)) return -1;
if (!str0_concatc(&key,0,":")) return -1;
if (!str0_concat(&key,0,&traceinsn)) return -1;
if (!str0_concatc(&key,0,"=")) return -1;
if (!str0_concat(&key,0,&tracevar)) return -1;
if (!critbit0_insert(&assignusegraph,0,&key)) return -1;
break;
default:
return -1;
}
}
}
}
break;
case 0:
break;
default:
return -1;
}
if (!str0_concatc(&x,0,":")) return -1;
if (critbit0_allprefixed(&usegraph,0,&y,&x,addtotrace) < 1) return -1;
}
}
int finduses2(void)
{
switch(finduses2_state) {
case 0:
if (!str0_copy(&n,0,&inputfield)) return -1;
finduses2_state = 1; return 1;
case 1:
if (str0_equalc(&inputfield,"inputreg")) { finduses2_state = 10; return 1; }
if (str0_equalc(&inputfield,"outputreg")) { finduses2_state = 20; return 1; }
if (str0_equalc(&inputfield,"kill")) { finduses2_state = 30; return 1; }
if (str0_equalc(&inputfield,"reglimit")) { finduses2_state = 40; return 1; }
if (str0_equalc(&inputfield,"op")) { finduses2_state = 50; return 1; }
if (str0_equalc(&inputfield,"maybegoto")) { finduses2_state = 50; return 1; }
break;
case 10:
if (!critbit0_insert(&inputregs,0,&inputfield)) return -1;
if (!str0_copy(&key,0,&inputfield)) return -1;
if (!str0_concatc(&key,0,":")) return -1;
if (!critbit0_firstprefixed(&vtypes,0,&type,&key)) {
if (!str0_copyc(&outputline,0,"error:unknown variable ")) return -1;
if (!str0_concat(&outputline,0,&key)) return -1;
if (!str0_concat(&outputline,0,&inputline)) return -1;
str0_putline(&outputline);
return 0;
}
finduses2_state = 11; return 1;
case 11:
if (!str0_copy(&x,0,&key)) return -1;
if (!str0_concat(&x,0,&inputfield)) return -1;
if (!critbit0_insert(&inputregassignments,0,&x)) return -1;
break;
case 20:
if (!critbit0_insert(&outputregs,0,&inputfield)) return -1;
if (!str0_copy(&key,0,&inputfield)) return -1;
if (!str0_concatc(&key,0,":")) return -1;
if (!critbit0_firstprefixed(&vtypes,0,&type,&key)) {
if (!str0_copyc(&outputline,0,"error:unknown variable ")) return -1;
if (!str0_concat(&outputline,0,&key)) return -1;
if (!str0_concat(&outputline,0,&inputline)) return -1;
str0_putline(&outputline);
return 0;
}
finduses2_state = 21; return 1;
case 21:
if (!str0_copy(&x,0,&key)) return -1;
if (!str0_concat(&x,0,&inputfield)) return -1;
if (!critbit0_insert(&outputregassignments,0,&x)) return -1;
break;
case 30:
if (!str0_copy(&key,0,&inputfield)) return -1;
if (!str0_concatc(&key,0,":")) return -1;
if (!critbit0_firstprefixed(&vtypes,0,&type,&key)) {
if (!str0_copyc(&outputline,0,"error:unknown variable ")) return -1;
if (!str0_concat(&outputline,0,&key)) return -1;
if (!str0_concat(&outputline,0,&inputline)) return -1;
str0_putline(&outputline);
}
break;
case 40:
if (!str0_copy(&key,0,&inputfield)) return -1;
if (!str0_concatc(&key,0,":")) return -1;
if (!critbit0_firstprefixed(&vtypes,0,&type,&key)) {
if (!str0_copyc(&outputline,0,"error:unknown variable ")) return -1;
if (!str0_concat(&outputline,0,&key)) return -1;
if (!str0_concat(&outputline,0,&inputline)) return -1;
str0_putline(&outputline);
return 0;
}
if (!str0_copy(®limit,0,&n)) return -1;
if (!str0_concatc(®limit,0,"<")) return -1;
if (!str0_concat(®limit,0,&inputfield)) return -1;
if (!str0_copy(&key,0,&n)) return -1;
if (!str0_concatc(&key,0,":<")) return -1;
if (!str0_concat(&key,0,&inputfield)) return -1;
if (!critbit0_insert(&uses,0,&key)) return -1;
finduses2_state = 41; return 1;
case 41:
finduses_reglimit_state = 0;
if (str0_word(&inputword,0,&inputfield,finduses_reglimit) < 0) return -1;
return 1;
case 50:
finduses2_state = 51; return 1;
case 51:
if (str0_length(&inputfield) > 0) {
if (!str0_copy(&key,0,&n)) return -1;
if (!str0_concatc(&key,0,":")) return -1;
if (!str0_concat(&key,0,&inputfield)) return -1;
if (!critbit0_insert(&uses,0,&key)) return -1;
}
return 1;
}
return 0;
}
