From dd83a988c8f6ff9947940fd22fdeb32ca7e6b3b8 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Mon, 24 Oct 2005 08:29:10 +0000
Subject: [PATCH] Using GC_clear_roots() we reduce the set of roots to the one
 ECL itself determines.

---
 src/c/alloc_2.d | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/c/alloc_2.d b/src/c/alloc_2.d
index 7694e1653..8cb616f10 100644
--- a/src/c/alloc_2.d
+++ b/src/c/alloc_2.d
@@ -195,6 +195,8 @@ init_alloc(void)
 #if 0
 	GC_init_explicit_typing();
 #endif
+	GC_clear_roots();
+	GC_disable();
 
 	init_tm(t_shortfloat, "SHORT-FLOAT", /* 8 */
 		sizeof(struct ecl_shortfloat));
@@ -232,6 +234,7 @@ init_alloc(void)
 
 	old_GC_push_other_roots = GC_push_other_roots;
 	GC_push_other_roots = stacks_scanner;
+	GC_enable();
 }
 
 /**********************************************************