30 	{	fprintf(tb, "0");  in undostmnt()
53 		fprintf(tb, "delproc(0, now._nr_pr-1)");  in undostmnt()
60 			fprintf(tb, "if (_m == 2) ");  in undostmnt()
83 				fprintf(tb, "XX = trpt->bup.oval");  in undostmnt()
85 				{	fprintf(tb, "s[%d]", jj);  in undostmnt()
88 				fprintf(tb, ";\n\t\t");  in undostmnt()
90 			{	fprintf(tb, "XX = 1;\n\t\t");  in undostmnt()
99 					fprintf(tb, "unrecv");  in undostmnt()
101 					fprintf(tb, "%d, ", i);  in undostmnt()
106 					fprintf(tb, ", %d);\n\t\t", (i==0)?1:0);  in undostmnt()
109 					fprintf(tb, "unrecv");  in undostmnt()
111 					fprintf(tb, "%d, ", i);  in undostmnt()
114 					{	fprintf(tb, "trpt->bup.oval");  in undostmnt()
116 							fprintf(tb, "s[%d]", jj);  in undostmnt()
120 					fprintf(tb, ", %d);\n\t\t", (i==0)?1:0);  in undostmnt()
139 						nocast=0; fprintf(tb, " = trpt->bup.oval");  in undostmnt()
141 							fprintf(tb, "s[%d]", jj);  in undostmnt()
142 						fprintf(tb, ";\n\t\t");  in undostmnt()
153 		fprintf(tb, "p_restor(II);\n\t\t");  in undostmnt()
158 		nocast=0; fprintf(tb, " = trpt->bup.oval");  in undostmnt()
161 			fprintf(tb, "s[%d]", multi_oval-1);  in undostmnt()
177 		fprintf(tb, "sv_restor();\n");  in undostmnt()
226 	{	fprintf(tb, ";\n\t\t");  in check_proc()
240 	{	fprintf(tc, "\tcase %d:\n", q->qid);  in genunio()
244 			fprintf(tc, "#ifdef HAS_SORTED\n");  in genunio()
245 			fprintf(tc, "\t\tj = trpt->ipt;\n");	/* ipt was bup.oval */  in genunio()
246 			fprintf(tc, "#endif\n");  in genunio()
247 			fprintf(tc, "\t\tfor (k = j; k < ((Q%d *)z)->Qlen; k++)\n",  in genunio()
249 			fprintf(tc, "\t\t{\n");  in genunio()
251 			fprintf(tc, "\t\t\t%s[k].fld%d = %s[k+1].fld%d;\n",  in genunio()
253 			fprintf(tc, "\t\t}\n");  in genunio()
254 			fprintf(tc, "\t\tj = ((Q0 *)z)->Qlen;\n");  in genunio()
259 			fprintf(tc, "\t\t%s%d = 0;\n", buf1, i);  in genunio()
262 			fprintf(tc, "\t\t_m = (trpt+1)->o_m;\n");  in genunio()
263 			fprintf(tc, "\t\tif (_m) (trpt-1)->o_pm |= 1;\n");  in genunio()
264 			fprintf(tc, "\t\tUnBlock;\n");  in genunio()
266 			fprintf(tc, "\t\t_m = trpt->o_m;\n");  in genunio()
268 		fprintf(tc, "\t\tbreak;\n");  in genunio()
273 		fprintf(tc, "	case %d:\n", q->qid);  in genunio()
275 			fprintf(tc, "\t\tif (strt) boq = from+1;\n");  in genunio()
277 		{	fprintf(tc, "\t\tif (strt && slot<%d)\n",  in genunio()
279 			fprintf(tc, "\t\t{\tfor (j--; j>=slot; j--)\n");  in genunio()
280 			fprintf(tc, "\t\t\t{");  in genunio()
282 			{	fprintf(tc, "\t%s[j+1].fld%d =\n\t\t\t",  in genunio()
284 				fprintf(tc, "\t%s[j].fld%d;\n\t\t\t",  in genunio()
287 			fprintf(tc, "}\n\t\t}\n");  in genunio()
290 		fprintf(tc, "\t\tif (strt) {\n");  in genunio()
292 			fprintf(tc, "\t\t\t%s%d = 0;\n", buf1, i);  in genunio()
293 		fprintf(tc, "\t\t}\n");  in genunio()
295 			fprintf(tc, "\t\tif (fld == 0) %s0 = fldvar;\n",  in genunio()
298 		{	fprintf(tc, "\t\tswitch (fld) {\n");  in genunio()
300 			{	fprintf(tc, "\t\tcase %d:\t%s", i, buf1);  in genunio()
301 				fprintf(tc, "%d = fldvar; break;\n", i);  in genunio()
303 			fprintf(tc, "\t\t}\n");  in genunio()
305 		fprintf(tc, "\t\tbreak;\n");  in genunio()