anchor.diff:                               (memref-unsigned-byte-64 frame-pointer 0) ; fp
                                (memref-unsigned-byte-64 frame-pointer 1))) ; ra
               (t (when *gc-debug-scavenge-stack*
  -                 (mezzano.supervisor:debug-print-line "Done scav stack.")))))))
  +                 (gc-log "Done scav stack.")))))))
   
   (defun scavenge-thread-tls-area (thread)
     (let ((address (ash (%pointer-field thread) 4)))
  
positive.code:                                        *cons-area-bump*
                                         *dynamic-mark-bit*))
    (incf *gc-epoch*)
    (mezzano.supervisor:debug-print-line "GC complete")
    (mezzano.supervisor::set-gc-light nil))
  
  (defun base-address-of-internal-pointer (address)
  
negative.code: (defvar *gc-debug-scavenge-stack* nil)
  (defvar *gc-debug-freelist-rebuild* nil)
  (defvar *gc-debug-metadata* t)
  
  (defvar *gc-enable-logging* nil)
  
  ;;; GC Meters.
  (defvar *old-objects-copied* 0)
  