tsort: pacify -fsanitizer=leak

* src/tsort.c (detect_loop): Free removed successor.

diff --git a/src/tsort.c b/src/tsort.c
index 28a7a05f6ec7b3e309fe040d218d80cc959097e1..19b991beda6e02ef4df50579704d6616ac334429 100644 (file)
--- a/src/tsort.c
+++ b/src/tsort.c
@@ -352,8 +352,10 @@ detect_loop (struct item *k)
                           if (loop == k)
                             {
                               /* Remove relation.  */
-                              (*p)->suc->count--;
-                              *p = (*p)->next;
+                              struct successor *s = *p;
+                              s->suc->count--;
+                              *p = s->next;
+                              IF_LINT (free (s));
                               break;
                             }