From: Alastair Bridgewater <nyef@kana.lisphacker.com>
Date: Thu, 8 Nov 2012 23:32:29 +0000 (-0500)
Subject: runtime/cheneygc.c: Use binding-stack-pointer access macro.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=dcf17f7d855d66c17b23c03a6fdc5cb0bc671175;p=sbcl.git

runtime/cheneygc.c: Use binding-stack-pointer access macro.

  * Rather than access current_binding_stack_pointer (a global
variable) directly, use access_binding_stack_pointer() (a macro
defined in thread.h).
---

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);