mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
18fdee7d7e
* We weren't setting functional-inlinep at all for global functions declared inline. * Port an assertion fix by Gerd Moellmann. * The XREF code was relying on incorrect behavior. Remedy that.
10 lines
201 B
Common Lisp
10 lines
201 B
Common Lisp
(declaim (inline inl))
|
|
(defun inl (x) (1- x))
|
|
(defun a (x)
|
|
(declare (type (unsigned-byte 64) x))
|
|
(logcount (inl x)))
|
|
|
|
(defun foo2 (x) (1+ (bar2 x)))
|
|
(declaim (inline bar2))
|
|
(defun bar2 (x) (1+ x))
|