Skip to content
Snippets Groups Projects
Commit cbe849cd authored by cwang's avatar cwang
Browse files

fix round-to-dualword for 64-bit

parent 24fa5e31
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/room.lisp,v 1.33 2004/06/18 17:44:28 rtoy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/room.lisp,v 1.34 2004/10/19 20:12:45 cwang Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -142,12 +142,16 @@ ...@@ -142,12 +142,16 @@
;;; ROUND-TO-DUALWORD -- Internal ;;; ROUND-TO-DUALWORD -- Internal
;;; ;;;
;;; Round Size (in bytes) up to the next dualword (eight byte) boundry. ;;; Round Size (in bytes) up to the next dualword (eight/16 byte) boundry.
;;; ;;;
(declaim (inline round-to-dualword)) (declaim (inline round-to-dualword))
(defun round-to-dualword (size) (defun round-to-dualword (size)
(declare (type memory-size size)) (declare (type memory-size size))
(logandc2 (the memory-size (+ size lowtag-mask)) lowtag-mask)) #-amd64
(logandc2 (the memory-size (+ size lowtag-mask)) lowtag-mask)
;; when we use 4-bit lowtag for amd64 we can get rid of this
#+amd64
(logandc2 (the memory-size (+ size 15)) 15))
;;; VECTOR-TOTAL-SIZE -- Internal ;;; VECTOR-TOTAL-SIZE -- Internal
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment