From: Pavel Charvat <pchar@ucw.cz>
Date: Wed, 22 Aug 2018 17:28:19 +0000 (+0200)
Subject: Heaps: Bugfix in Fibonacci heaps.
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=refs%2Fheads%2Fdev-heap;p=libucw.git

Heaps: Bugfix in Fibonacci heaps.
---

diff --git a/ucw/heap-gen.h b/ucw/heap-gen.h
index c1a66d06..d882b723 100644
--- 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)
 		{