76 int     cre8ecs (fwd, bck, num)  in cre8ecs()  argument
77      int     fwd[], bck[], num;  in cre8ecs()
89 		if (bck[i] == NIL) {
90 			bck[i] = ++numcl;
92 				bck[j] = -numcl;
114 void    mkeccl (ccls, lenccl, fwd, bck, llsiz, NUL_mapping)  in mkeccl()  argument
116      int     lenccl, fwd[], bck[], llsiz, NUL_mapping;
134 		oldec = bck[cclm];
158 					bck[i] = newec;
174 			bck[i] = oldec;
184 		if (bck[cclm] != NIL || oldec != bck[cclm]) {
185 			bck[cclm] = NIL;
203 void    mkechar (tch, fwd, bck)  in mkechar()  argument
204      int     tch, fwd[], bck[];  in mkechar()
211 		bck[fwd[tch]] = bck[tch];
213 	if (bck[tch] != NIL)
214 		fwd[bck[tch]] = fwd[tch];
217 	bck[tch] = NIL;