Fix scanning of threads

froggey · Sep 18, 2018 · a6ea7d3 · a6ea7d3
1 parent e87d765
commit a6ea7d3
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/lldb.lisp b/lldb.lisp
@@ -34,7 +34,7 @@
       (format t "Count #x~S not a fixnum?~%" (mezzano.supervisor:thread-state-rcx thread))
       (return-from fetch-thread-return-values '(:thread-in-strange-state)))
     (dotimes (i (max 0 (- count 5)))
-      (push (%object-ref-t thread (+ mezzano.supervisor::+thread-mv-slots-start+ i)) vals))
+      (push (%object-ref-t thread (+ mezzano.supervisor::+thread-mv-slots+ i)) vals))
     (subseq (reverse vals) 0 count)))
 
 (defparameter *step-special-functions*

diff --git a/system/gc.lisp b/system/gc.lisp
@@ -787,7 +787,7 @@ This is required to make the GC interrupt safe."
                (n-mv-area-values (max 0 (- n-values 5))))
           (scavenge-many (+ (ash (%pointer-field thread) 4)
                             8
-                            (* mezzano.supervisor::+thread-mv-slots-start+ 8))
+                            (* mezzano.supervisor::+thread-mv-slots+ 8))
                          n-mv-area-values
                          cycle-kind)))
       (when (eql incoming-arguments :rcx)