;;; 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.
+#!+(or x86 x86-64)
+(defun foldable-constant-offset-p (element-size lowtag data-offset offset)
+ (if (< element-size n-byte-bits)
+ nil
+ (multiple-value-bind (min max)
+ (sb!impl::displacement-bounds lowtag element-size data-offset)
+ (<= min offset max))))
+
\f
;;;; routines for dealing with static symbols
;;; Return the (byte) offset from NIL to the start of the fdefn object
;;; for the static function NAME.
-(defun static-fun-offset (name)
+(defun static-fdefn-offset (name)
(let ((static-syms (length *static-symbols*))
(static-fun-index (position name *static-funs*)))
(unless static-fun-index
(pad-data-block (1- symbol-size))
(- list-pointer-lowtag)
(* static-fun-index (pad-data-block fdefn-size))
- (* fdefn-raw-addr-slot n-word-bytes))))
+ other-pointer-lowtag)))
+
+;;; Return the (byte) offset from NIL to the raw-addr slot of the
+;;; fdefn object for the static function NAME.
+(defun static-fun-offset (name)
+ (+ (static-fdefn-offset name)
+ (- other-pointer-lowtag)
+ (* fdefn-raw-addr-slot n-word-bytes)))
\f
;;; Various error-code generating helpers
(defvar *adjustable-vectors* nil)