X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fcheneygc.c;h=7573c82f1d1785a90f40fc27dc661441f4eb8485;hb=ed1910efb36f71b5ebe33b5ffffd7195e15644de;hp=a4c72a4a9eed3885b5282d32c9fbae411cf1fe84;hpb=aab1cd8a9dc69450a046d4f176ec5b9fde43c42c;p=sbcl.git

diff --git a/src/runtime/cheneygc.c b/src/runtime/cheneygc.c
index a4c72a4..7573c82 100644
--- a/src/runtime/cheneygc.c
+++ b/src/runtime/cheneygc.c
@@ -156,11 +156,11 @@ collect_garbage(generation_index_t ignore)
 
 
     binding_stack_size =
-        current_binding_stack_pointer -
+        (lispobj *)get_binding_stack_pointer(th) -
         (lispobj *)th->binding_stack_start;
 #ifdef PRINTNOISE
     printf("Scavenging the binding stack %x - %x (%d words) ...\n",
-           th->binding_stack_start,current_binding_stack_pointer,
+           th->binding_stack_start,get_binding_stack_pointer(th),
            (int)(binding_stack_size));
 #endif
     scavenge(((lispobj *)th->binding_stack_start), binding_stack_size);