175 {	IType *tmp;  in def_inline()  local
180 	for (tmp = seqnames; tmp; cnt++, tmp = tmp->nxt)  in def_inline()
181 		if (!strcmp(s->name, tmp->nm->name))  in def_inline()
183 				tmp->nm->name);  in def_inline()
184 			tmp->cn = (Lextok *) nw;  in def_inline()
185 			tmp->params = nms;  in def_inline()
186 			tmp->dln = ln;  in def_inline()
187 			tmp->dfn = Fname;  in def_inline()
190 	tmp = (IType *) emalloc(sizeof(IType));  in def_inline()
191 	tmp->nm = s;  in def_inline()
192 	tmp->cn = (Lextok *) nw;  in def_inline()
193 	tmp->params = nms;  in def_inline()
195 	{	tmp->prec = (char *) emalloc(strlen(prc)+1);  in def_inline()
196 		strcpy(tmp->prec, prc);  in def_inline()
198 	tmp->dln = ln;  in def_inline()
199 	tmp->dfn = Fname;  in def_inline()
200 	tmp->uiid = cnt+1;	/* so that 0 means: not an inline */  in def_inline()
201 	tmp->nxt = seqnames;  in def_inline()
202 	seqnames = tmp;  in def_inline()
207 {	IType *tmp;  in gencodetable()  local
218 	for (tmp = seqnames; tmp; tmp = tmp->nxt)  in gencodetable()
219 		if (tmp->nm->type == CODE_FRAG  in gencodetable()
220 		||  tmp->nm->type == CODE_DECL)  in gencodetable()
222 				tmp->nm->name);  in gencodetable()
223 			q = (char *) tmp->cn;  in gencodetable()
258 {	IType *tmp;  in iseqname()  local
260 	for (tmp = seqnames; tmp; tmp = tmp->nxt)  in iseqname()
261 	{	if (!strcmp(t, tmp->nm->name))  in iseqname()
315 {	IType *tmp;  in find_inline()  local
317 	for (tmp = seqnames; tmp; tmp = tmp->nxt)  in find_inline()
318 		if (!strcmp(s, tmp->nm->name))  in find_inline()
320 	if (!tmp)  in find_inline()
323 	return tmp;  in find_inline()
790 check_inline(IType *tmp)  in check_inline()  argument
800 		if (strstr((char *)tmp->cn, buf))  in check_inline()
803 			fatal("invalid variable ref in '%s'", tmp->nm->name);  in check_inline()
809 {	IType *tmp;  in plunk_expr()  local
811 	tmp = find_inline(s);  in plunk_expr()
812 	check_inline(tmp);  in plunk_expr()
814 	fprintf(fd, "%s", (char *) tmp->cn);  in plunk_expr()
819 {	IType *tmp;  in preruse()  local
823 	{	tmp = find_inline(n->sym->name);  in preruse()
824 		if (tmp->prec)  in preruse()
825 		{	fprintf(fd, "if (!(%s)) { if (!readtrail) { depth++; ", tmp->prec);  in preruse()
827 			fprintf(fd, "trpt->st = tt; uerror(\"%s\"); continue; } ", tmp->prec);  in preruse()
828 			fprintf(fd, "else { printf(\"pan: precondition false: %s\\n\"); ", tmp->prec);  in preruse()
839 {	IType *tmp;  in glob_inline()  local
842 	tmp = find_inline(s);  in glob_inline()
843 	bdy = (char *) tmp->cn;  in glob_inline()
850 {	IType *tmp;  in plunk_inline()  local
852 	tmp = find_inline(s);  in plunk_inline()
853 	check_inline(tmp);  in plunk_inline()
856 	if (how && tmp->prec)  in plunk_inline()
858 			tmp->prec);  in plunk_inline()
860 			tmp->prec);  in plunk_inline()
863 			tmp->prec);  in plunk_inline()
870 	fprintf(fd, "%s", (char *) tmp->cn);  in plunk_inline()
876 {	IType *tmp;  in no_side_effects()  local
884 	tmp = find_inline(s);  in no_side_effects()
885 	t = (char *) tmp->cn;  in no_side_effects()
891 bad:		lineno = tmp->dln;  in no_side_effects()
892 		Fname = tmp->dfn;  in no_side_effects()
912 {	IType *tmp; Lextok *p, *q; int j;  in pickup_inline()  local
914 	tmp = find_inline(t->name);  in pickup_inline()
918 	tmp->cln = lineno;	/* remember calling point */  in pickup_inline()
919 	tmp->cfn = Fname;	/* and filename */  in pickup_inline()
921 	for (p = apars, q = tmp->params, j = 0; p && q; p = p->rgt, q = q->rgt)  in pickup_inline()
926 	tmp->anms  = (char **) emalloc(j * sizeof(char *));  in pickup_inline()
928 	{	tmp->anms[j] = (char *) emalloc(strlen(IArg_cont[j])+1);  in pickup_inline()
929 		strcpy(tmp->anms[j], IArg_cont[j]);  in pickup_inline()
932 	lineno = tmp->dln;	/* linenr of def */  in pickup_inline()
933 	Fname = tmp->dfn;	/* filename of same */  in pickup_inline()
934 	Inliner[Inlining] = (char *)tmp->cn;  in pickup_inline()
935 	Inline_stub[Inlining] = tmp;  in pickup_inline()
939 		tmp->cfn->name, tmp->cln, t->name, tmp->dfn->name, tmp->dln);  in pickup_inline()