From 6abf99b9ae4a8868e55215a74dd4c0e8a97ec99b Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 1 Feb 2014 03:33:31 -0800
Subject: Export break_obj.

* gc.c (break_obj): Change to external linkage.
(mark): Use t variable instead of re-evaluating obj->t.type.

* gc.h (break_obj): Declared.
---
 gc.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'gc.c')

diff --git a/gc.c b/gc.c
index fd1658bc..0df85323 100644
--- a/gc.c
+++ b/gc.c
@@ -86,7 +86,7 @@ static int full_gc;
 #endif
 
 #if EXTRA_DEBUGGING
-static val break_obj;
+val break_obj;
 #endif
 
 val prot1(val *loc)
@@ -260,7 +260,7 @@ tail_call:
   if ((t & FREE) != 0)
     abort();
 
-  obj->t.type = (type_t) (obj->t.type | REACHABLE);
+  obj->t.type = (type_t) (t | REACHABLE);
 
 #if EXTRA_DEBUGGING
   if (obj == break_obj)
-- 
cgit v1.2.3