F_frame F_newFrame(Temp_label name, U_boolList formals)
{
F_frame f = checked_malloc(sizeof(*f));
f->name = name;
f->formals = makeFormalAccessList(f, formals);
f->local_count = 0;
return f;
}
Tr_level Tr_newLevel(Tr_level p, Temp_label n, U_boolList f) {
Tr_level l = checked_malloc(sizeof(*l));
l->parent = p;
l->name = n;
l->frame = F_newFrame(n, U_BoolList(TRUE, f));
l->formals = makeFormalAccessList(l);
#ifdef F_P
display_l(l);
#endif
return l;
}