Kernel/src/bip_comp.c

1060     register pword 	*h1, *h2, *comp_ptr, *append;
1077     append = &list1;
1150 		append->tag.kernel = TLIST | MARK;
1151 		append->val.ptr = h2;
1158 		append = next_append;
1166 		append->tag.kernel = TLIST | MARK;
1167 		append->val.ptr = (Gbl_Tg - 4);
1175 		append = next_append;
1199 	append->tag.kernel = TLIST | MARK;
1200 	append->val.ptr = h2;
1208 	append = (Gbl_Tg - 1);
1213 	append->tag.kernel = TLIST | MARK;
1214 	append->val.ptr = (Gbl_Tg - 2);
1223 	append = comp_ptr;
1229     Set_Bit(MARK, append);
1240 	append = &list1;
1246 	{   /* merge lists h1 and h2, appending the result at append */
1272 		    append->val.ptr = h1;	/* link element h1	*/
1273 		    append = h1 + 1;
1281 		    append->tag.kernel = TLIST;	/* and reset mark	*/
1282 		    append->val.ptr = h2;
1285 		    append = h2 + 1;
1286 		    h2 =  IsList(append->tag) ? append->val.ptr : (pword *) 0;
1290 		    append->val.ptr = h2;	/* link element h2	*/
1291 		    append = h2 + 1;
1299 		    append->tag.kernel = TLIST;	/* and reset mark	*/
1300 		    append->val.ptr = h1;
1303 		    append = h1 + 1;
1304 		    h1 =  IsList(append->tag) ? append->val.ptr : (pword *) 0;
1316 		    append->val.ptr = h1;
1319 		    append = h1 + 1;
1320 		    h1 =  IsList(append->tag) ? append->val.ptr : (pword *) 0;
1325 	    comp_ptr = append;
1326 	    append = next_append;
1332 	    append->tag.kernel = MARK|TLIST;
1333 	    append->val.ptr = h1;
1336 	    append = next_append;
1339 	append->tag.kernel = MARK|TNIL;
1341     } while (append != &list2);
1421     pword 	*h1, *h2, *key_ptr1, *key_ptr2, *append;
1443     append = &result;
1484 	    Make_List(append, TG);
1485 	    append = TG;
1487 	    *append++ = *h1++;		/* copy element h1 */
1493 		    Make_List(append, h2);
1505 	    Make_List(append, TG);
1506 	    append = TG;
1508 	    *append++ = *h2++;		/* copy element h2 */
1514 		    Make_List(append, h1);
1526 	    Make_List(append, TG);
1527 	    append = TG;
1529 	    *append++ = *h1++;		/* copy element h1 */
1537 		    *append = *h2;
1547 		    *append = *h1;