Heaps: Bugfix in Fibonacci heaps.

diff --git a/ucw/heap-gen.h b/ucw/heap-gen.h
index c1a66d06324c2cc278fdfa49c525b263d6fd582a..d882b723ed60cb89f93e010799dd8d3594bd508a 100644 (file)
--- a/ucw/heap-gen.h
+++ b/ucw/heap-gen.h
@@ -512,6 +512,7 @@ P(cut_root_and_consolidate)(P(heap_p) h, P(node_p) a)
                  b = c;
                }
              b->parent = a;
+             b->mark = false;
              a->rank++;
              if (!a->son)
                {