From 0e258fd926f10b010b0a6d2a423f95ed4bceaac7 Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Sun, 4 Oct 2015 15:05:08 -0700
Subject: [PATCH] Rename local control_stack_size to current_stack_size to
 prevent confusion with the global control_stack_size.

---
 src/lisp/gencgc.c | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/lisp/gencgc.c b/src/lisp/gencgc.c
index d21592164..7f45d7118 100644
--- a/src/lisp/gencgc.c
+++ b/src/lisp/gencgc.c
@@ -7501,16 +7501,16 @@ scavenge_interrupt_handlers(void)
 static void
 scavenge_control_stack(void)
 {
-    unsigned long control_stack_size;
+    unsigned long current_stack_size;
 
-    control_stack_size = current_control_stack_pointer - control_stack;
+    current_stack_size = current_control_stack_pointer - control_stack;
 
 #ifdef PRINTNOISE
     printf("Scavenging the control stack (%d bytes) ...\n",
-	   control_stack_size * sizeof(lispobj));
+	   current_stack_size * sizeof(lispobj));
 #endif
 
-    scavenge(control_stack, control_stack_size);
+    scavenge(control_stack, current_stack_size);
 
 #ifdef PRINTNOISE
     printf("Done scavenging the control stack.\n");
-- 
GitLab