From 22b66800ca54898a69e355c1d57edbc314b4e336 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Fri, 17 Jun 2016 06:40:10 -0700
Subject: Useful assertion in make_obj.

* gc.c (make_obj): Assert that the object we are pulling
from the free list is marked FREE.
---
 gc.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/gc.c b/gc.c
index ab7eb7f8..f82ec5f0 100644
--- a/gc.c
+++ b/gc.c
@@ -184,6 +184,7 @@ val make_obj(void)
         VALGRIND_MAKE_MEM_DEFINED(free_list, sizeof *free_list);
 #endif
       free_list = free_list->t.next;
+      assert (ret->t.type & FREE);
 
       if (free_list == 0)
         free_tail = &free_list;
-- 
cgit v1.2.3