heap_parent
for ( p = heap_parent(i);
i = p, p = heap_parent(i) ) {
cyc_index_t heap_parent, heap_current = ndx;
heap_parent = CYC_HEAP_PARENT(heap_current);
parent = heap[heap_parent];
heap[heap_parent] = current;
if (heap_parent == 0)
heap_current = heap_parent;
heap_parent = CYC_HEAP_PARENT(heap_current);