diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2014-02-01 03:33:31 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2014-02-01 03:33:31 -0800 |
| commit | 6abf99b9ae4a8868e55215a74dd4c0e8a97ec99b (patch) | |
| tree | c3dcb1d4fdc1482a5f3cd0797c3a1f5cd6edc3cf /gc.c | |
| parent | f746b568d797d6b35571968b838d540147dde3f9 (diff) | |
| download | txr-6abf99b9ae4a8868e55215a74dd4c0e8a97ec99b.tar.gz txr-6abf99b9ae4a8868e55215a74dd4c0e8a97ec99b.tar.bz2 txr-6abf99b9ae4a8868e55215a74dd4c0e8a97ec99b.zip | |
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.
Diffstat (limited to 'gc.c')
| -rw-r--r-- | gc.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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) |