X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftoplevel.lisp;h=2a8eb52c4ff946c45393102e8a7940a1bfc727e4;hb=78fa16bf55be44cc16845be84d98023e83fb14bc;hp=4f3d0f278386dc9c0a1bed7e5b501c0b12e32e58;hpb=5e1fcdac979db9a6aebe69531229355def8c0f90;p=sbcl.git diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp index 4f3d0f2..2a8eb52 100644 --- a/src/code/toplevel.lisp +++ b/src/code/toplevel.lisp @@ -196,7 +196,7 @@ steppers to maintain contextual information.") ((= 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) @@ -206,11 +206,11 @@ steppers to maintain contextual information.") (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))) @@ -232,7 +232,7 @@ steppers to maintain contextual information.") (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) @@ -247,7 +247,7 @@ steppers to maintain contextual information.") (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))))