77 int     cre8ecs (fwd, bck, num)  in cre8ecs()  argument
78      int     fwd[], bck[], num;  in cre8ecs()
90 		if (bck[i] == NIL) {
91 			bck[i] = ++numcl;
93 				bck[j] = -numcl;
115 void    mkeccl (ccls, lenccl, fwd, bck, llsiz, NUL_mapping)  in mkeccl()  argument
117      int     lenccl, fwd[], bck[], llsiz, NUL_mapping;
135 		oldec = bck[cclm];
159 					bck[i] = newec;
175 			bck[i] = oldec;
185 		if (bck[cclm] != NIL || oldec != bck[cclm]) {
186 			bck[cclm] = NIL;
204 void    mkechar (tch, fwd, bck)  in mkechar()  argument
205      int     tch, fwd[], bck[];  in mkechar()
212 		bck[fwd[tch]] = bck[tch];
214 	if (bck[tch] != NIL)
215 		fwd[bck[tch]] = fwd[tch];
218 	bck[tch] = NIL;