/[cmucl]/src/code/room.lisp
ViewVC logotype

Diff of /src/code/room.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.25.2.3 by dtc, Thu Jul 6 06:18:49 2000 UTC revision 1.25.2.4 by pw, Sat Mar 23 18:50:10 2002 UTC
# Line 114  Line 114 
114    
115  ;;;; MAP-ALLOCATED-OBJECTS:  ;;;; MAP-ALLOCATED-OBJECTS:
116    
117  (proclaim '(type fixnum *static-space-free-pointer*  (declaim (type fixnum *static-space-free-pointer*
118                   *read-only-space-free-pointer* ))                 *read-only-space-free-pointer* ))
119    
120  (defun space-bounds (space)  (defun space-bounds (space)
121    (declare (type spaces space))    (declare (type spaces space))
# Line 143  Line 143 
143  ;;;  ;;;
144  ;;;    Round Size (in bytes) up to the next dualword (eight byte) boundry.  ;;;    Round Size (in bytes) up to the next dualword (eight byte) boundry.
145  ;;;  ;;;
146  (proclaim '(inline round-to-dualword))  (declaim (inline round-to-dualword))
147  (defun round-to-dualword (size)  (defun round-to-dualword (size)
148    (declare (fixnum size))    (declare (fixnum size))
149    (logand (the fixnum (+ size lowtag-mask)) (lognot lowtag-mask)))    (logand (the fixnum (+ size lowtag-mask)) (lognot lowtag-mask)))
# Line 153  Line 153 
153  ;;;  ;;;
154  ;;;    Return the total size of a vector in bytes, including any pad.  ;;;    Return the total size of a vector in bytes, including any pad.
155  ;;;  ;;;
156  (proclaim '(inline vector-total-size))  (declaim (inline vector-total-size))
157  (defun vector-total-size (obj info)  (defun vector-total-size (obj info)
158    (let ((shift (room-info-length info))    (let ((shift (room-info-length info))
159          (len (+ (length (the (simple-array * (*)) obj))          (len (+ (length (the (simple-array * (*)) obj))
# Line 178  Line 178 
178  ;;; object, the object's type code, and the objects total size in bytes,  ;;; object, the object's type code, and the objects total size in bytes,
179  ;;; including any header and padding.  ;;; including any header and padding.
180  ;;;  ;;;
181  (proclaim '(maybe-inline map-allocated-objects))  (declaim (maybe-inline map-allocated-objects))
182  (defun map-allocated-objects (fun space)  (defun map-allocated-objects (fun space)
183    (declare (type function fun) (type spaces space))    (declare (type function fun) (type spaces space))
184    (without-gcing    (without-gcing

Legend:
Removed from v.1.25.2.3  
changed lines
  Added in v.1.25.2.4

  ViewVC Help
Powered by ViewVC 1.1.5