34 {	UType *tmp;  in setuname()  local
39 	for (tmp = Unames; tmp; tmp = tmp->nxt)  in setuname()
40 		if (!strcmp(owner->name, tmp->nm->name))  in setuname()
42 				tmp->nm->name);  in setuname()
46 	tmp = (UType *) emalloc(sizeof(UType));  in setuname()
47 	tmp->nm = owner;  in setuname()
48 	tmp->cn = n;  in setuname()
49 	tmp->nxt = Unames;  in setuname()
50 	Unames = tmp;  in setuname()
54 putUname(FILE *fd, UType *tmp)  in putUname()  argument
57 	if (!tmp) return;  in putUname()
58 	putUname(fd, tmp->nxt); /* postorder */  in putUname()
60 		tmp->nm->name);  in putUname()
61 	for (fp = tmp->cn; fp; fp = fp->rgt)  in putUname()
75 {	UType *tmp;  in isutype()  local
77 	for (tmp = Unames; tmp; tmp = tmp->nxt)  in isutype()
78 	{	if (!strcmp(t, tmp->nm->name))  in isutype()
86 {	UType *tmp;  in getuname()  local
88 	for (tmp = Unames; tmp; tmp = tmp->nxt)  in getuname()
89 	{	if (!strcmp(t->name, tmp->nm->name))  in getuname()
90 			return tmp->cn;  in getuname()
139 {	Lextok *tmp, *fp, *tl;  in do_same()  local
171 	tmp = n->rgt->lft;  in do_same()
172 	if (tmp->ntyp != NAME && tmp->ntyp != TYPE)  in do_same()
173 	{	printf("bad subfield entry %d\n", tmp->ntyp);  in do_same()
178 		if (!strcmp(tl->sym->name, tmp->sym->name))  in do_same()
182 	fatal("cannot locate subfield %s", tmp->sym->name);  in do_same()
189 	Lextok *tmp;  in Rval_struct()  local
195 	tmp = n->rgt->lft;  in Rval_struct()
196 	if (tmp->sym->type == STRUCT)  in Rval_struct()
197 	{	return Rval_struct(tmp, tl, 0);  in Rval_struct()
198 	} else if (tmp->rgt)  in Rval_struct()
201 	ix = eval(tmp->lft);  in Rval_struct()
212 	Lextok *tmp;  in Lval_struct()  local
218 	tmp = n->rgt->lft;  in Lval_struct()
219 	if (tmp->sym->type == STRUCT)  in Lval_struct()
220 		return Lval_struct(tmp, tl, 0, a);  in Lval_struct()
221 	else if (tmp->rgt)  in Lval_struct()
224 	ix = eval(tmp->lft);  in Lval_struct()
348 	Lextok *tmp;  in full_name()  local
355 	tmp = n->rgt->lft;  in full_name()
357 	if (tmp->sym->type == STRUCT)  in full_name()
359 		hiddenarrays = full_name(fd, tmp, tl, 0);  in full_name()
363 out:	if (tmp->sym->nel > 1 || tmp->sym->isarray == 1)  in full_name()
364 	{	fprintf(fd, "[%d]", eval(tmp->lft));  in full_name()
388 	Lextok *tmp;  in struct_name()  local
393 	tmp = n->rgt->lft;  in struct_name()
394 	if (tmp->sym->type == STRUCT)  in struct_name()
396 		struct_name(tmp, tl, 0, buf);  in struct_name()
401 	if (tmp->sym->nel > 1 || tmp->sym->isarray == 1)  in struct_name()
402 	{	sprintf(lbuf, "[%d]", eval(tmp->lft));  in struct_name()
645 {	UType *tmp;  in setpname()  local
647 	for (tmp = Pnames; tmp; tmp = tmp->nxt)  in setpname()
648 		if (!strcmp(n->sym->name, tmp->nm->name))  in setpname()
653 	tmp = (UType *) emalloc(sizeof(UType));  in setpname()
654 	tmp->nm = n->sym;  in setpname()
655 	tmp->nxt = Pnames;  in setpname()
656 	Pnames = tmp;  in setpname()
661 {	UType *tmp;  in isproctype()  local
663 	for (tmp = Pnames; tmp; tmp = tmp->nxt)  in isproctype()
664 	{	if (!strcmp(t, tmp->nm->name))  in isproctype()