Kernel/src/bip_comp.c

1060     register pword 	*h1, *h2, *comp_ptr, *append;
1079     h2 = Gbl_Tg;
1095     *h2 = *comp_ptr;
1151 		append->val.ptr = h2;
1152 		while(h2 < (Gbl_Tg - 4))
1154 		    h2 += 2;
1155 		    (h2-1)->tag.kernel = TLIST;
1156 		    (h2-1)->val.ptr = h2;
1159 		next_append = h2 + 1;
1160 		h2 = Gbl_Tg - 2;
1169 		while(comp_ptr > h2 + 2)
1177 		h2 = Gbl_Tg - 2;
1200 	append->val.ptr = h2;
1201 	while(h2 < (Gbl_Tg - 2))
1203 	    h2 += 2;
1204 	    (h2-1)->tag.kernel = TLIST;
1205 	    (h2-1)->val.ptr = h2;
1216 	while(comp_ptr > h2 + 2)
1243 	h2 = list2.val.ptr;
1246 	{   /* merge lists h1 and h2, appending the result at append */
1251 		key_ptr2 = _get_key(h2, vk, tk, err);
1282 		    append->val.ptr = h2;
1283 		    while (!Marked((h2+1)->tag))
1284 			h2 = (h2+1)->val.ptr;
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;
1292 		    if (!Marked((h2+1)->tag))
1294 			h2 = (h2+1)->val.ptr;
1298 		    h2 = IsList((h2+1)->tag) ? (h2+1)->val.ptr : (pword *) 0;
1308 		    if (!Marked((h2+1)->tag))	/* skip element h2	*/
1310 			h2 = (h2+1)->val.ptr;
1313 		    Clr_Bit(MARK, h2+1);
1315 		    h2 = IsList((h2+1)->tag) ? (h2+1)->val.ptr : (pword *) 0;
1328 	} while (h1 && h2);
1330 	if (h1 /* && !h2 */)	/* a single sequence is left	*/
1350     h2 = h1 + 1;
1352     while(IsList(h2->tag))
1354 	h2 = h2->val.ptr;
1357 	key_ptr2 = _get_key(h2, vk, tk, err);
1372 	h1 = h2;
1373 	h2 = h1 + 1;
1375     if(!IsNil(h2->tag))
1421     pword 	*h1, *h2, *key_ptr1, *key_ptr2, *append;
1445     h2 = v2.ptr;
1447      || !(key_ptr2 = _get_key(h2, vk, tk, &err)))
1455     for(;;)	/* (h1, key_ptr1, h2, key_ptr2) */
1493 		    Make_List(append, h2);
1508 	    *append++ = *h2++;		/* copy element h2 */
1509 	    Dereference_(h2);
1510 	    if (!IsList(h2->tag))
1512 		if (IsNil(h2->tag))
1517 		err = IsRef(h2->tag) ? INSTANTIATION_FAULT : TYPE_ERROR;
1520 	    h2 = h2->val.ptr;
1521 	    if (!(key_ptr2 = _get_key(h2, vk, tk, &err)))
1531 	    h2++;			/* skip element h2 */
1532 	    Dereference_(h2);
1537 		    *append = *h2;
1543 	    if (!IsList(h2->tag))
1545 		if (IsNil(h2->tag))
1550 		err = IsRef(h2->tag) ? INSTANTIATION_FAULT : TYPE_ERROR;
1554 	    h2 = h2->val.ptr;
1556 	     || !(key_ptr2 = _get_key(h2, vk, tk, &err)))