projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Let OFFSET-CONFLICTS-IN-SB check multiple offsets at a time
[sbcl.git]
/
src
/
compiler
/
generic
/
utils.lisp
diff --git
a/src/compiler/generic/utils.lisp
b/src/compiler/generic/utils.lisp
index
3625f66
..
d4192d3
100644
(file)
--- a/
src/compiler/generic/utils.lisp
+++ b/
src/compiler/generic/utils.lisp
@@
-15,7
+15,7
@@
;;; Make a fixnum out of NUM. (I.e. shift by two bits if it will fit.)
(defun fixnumize (num)
(if (fixnump num)
;;; Make a fixnum out of NUM. (I.e. shift by two bits if it will fit.)
(defun fixnumize (num)
(if (fixnump num)
- (ash num (1- n-lowtag-bits))
+ (ash num n-fixnum-tag-bits)
(error "~W is too big for a fixnum." num)))
;;; Determining whether a constant offset fits in an addressing mode.
(error "~W is too big for a fixnum." num)))
;;; Determining whether a constant offset fits in an addressing mode.