((= offset bytes-per-scrub-unit)
(look (sap+ ptr bytes-per-scrub-unit) 0 count))
(t
- (setf (sap-ref-32 ptr offset) 0)
+ (setf (sap-ref-word ptr offset) 0)
(scrub ptr (+ offset sb!vm:n-word-bytes) count))))
(look (ptr offset count)
(declare (type system-area-pointer ptr)
(cond ((>= (sap-int ptr) end-of-stack) 0)
((= offset bytes-per-scrub-unit)
count)
- ((zerop (sap-ref-32 ptr offset))
+ ((zerop (sap-ref-word ptr offset))
(look ptr (+ offset sb!vm:n-word-bytes) count))
(t
(scrub ptr offset (+ count sb!vm:n-word-bytes))))))
- (declare (type (unsigned-byte 32) csp))
+ (declare (type sb!vm::word csp))
(scrub (int-sap (- csp initial-offset))
(* (floor initial-offset sb!vm:n-word-bytes) sb!vm:n-word-bytes)
0)))
(look (int-sap (- (sap-int ptr) bytes-per-scrub-unit))
0 count))
(t ;; need to fix bug in %SET-STACK-REF
- (setf (sap-ref-32 loc 0) 0)
+ (setf (sap-ref-word loc 0) 0)
(scrub ptr (+ offset sb!vm:n-word-bytes) count)))))
(look (ptr offset count)
(declare (type system-area-pointer ptr)
(look ptr (+ offset sb!vm:n-word-bytes) count))
(t
(scrub ptr offset (+ count sb!vm:n-word-bytes)))))))
- (declare (type (unsigned-byte 32) csp))
+ (declare (type sb!vm::word csp))
(scrub (int-sap (+ csp initial-offset))
(* (floor initial-offset sb!vm:n-word-bytes) sb!vm:n-word-bytes)
0))))