projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Optimize TYPEP of (MOD X) on x86/x86-64.
[sbcl.git]
/
contrib
/
sb-rotate-byte
/
compiler.lisp
diff --git
a/contrib/sb-rotate-byte/compiler.lisp
b/contrib/sb-rotate-byte/compiler.lisp
index
58937d6
..
38079fb
100644
(file)
--- a/
contrib/sb-rotate-byte/compiler.lisp
+++ b/
contrib/sb-rotate-byte/compiler.lisp
@@
-1,16
+1,20
@@
(in-package "SB-ROTATE-BYTE")
(defknown rotate-byte (integer byte-specifier integer) integer
(in-package "SB-ROTATE-BYTE")
(defknown rotate-byte (integer byte-specifier integer) integer
- (foldable flushable))
+ (foldable flushable)
+ :overwrite-fndb-silently t)
(defknown %rotate-byte (integer bit-index bit-index integer) integer
(defknown %rotate-byte (integer bit-index bit-index integer) integer
- (foldable flushable))
+ (foldable flushable)
+ :overwrite-fndb-silently t)
(defknown %unsigned-32-rotate-byte ((integer -31 31) (unsigned-byte 32))
(unsigned-byte 32)
(defknown %unsigned-32-rotate-byte ((integer -31 31) (unsigned-byte 32))
(unsigned-byte 32)
- (foldable flushable))
+ (foldable flushable)
+ :overwrite-fndb-silently t)
#+x86-64
(defknown %unsigned-64-rotate-byte ((integer -63 63) (unsigned-byte 64))
(unsigned-byte 64)
#+x86-64
(defknown %unsigned-64-rotate-byte ((integer -63 63) (unsigned-byte 64))
(unsigned-byte 64)
- (foldable flushable))
+ (foldable flushable)
+ :overwrite-fndb-silently t)
(macrolet (;; see src/compiler/srctran.lisp
(with-byte-specifier ((size-var pos-var spec) &body body)
(macrolet (;; see src/compiler/srctran.lisp
(with-byte-specifier ((size-var pos-var spec) &body body)