projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Specialised VOPs for EQ of fixnum values on x86oids
[sbcl.git]
/
src
/
compiler
/
generic
/
early-objdef.lisp
diff --git
a/src/compiler/generic/early-objdef.lisp
b/src/compiler/generic/early-objdef.lisp
index
bda8fcd
..
eb69275
100644
(file)
--- a/
src/compiler/generic/early-objdef.lisp
+++ b/
src/compiler/generic/early-objdef.lisp
@@
-99,7
+99,7
@@
(string= name "-LOWTAG" :start1 (- len 7))
(zerop (logand (symbol-value sym) fixnum-tag-mask)))
(push sym fixtags))))
(string= name "-LOWTAG" :start1 (- len 7))
(zerop (logand (symbol-value sym) fixnum-tag-mask)))
(push sym fixtags))))
- `',fixtags)
+ `',(sort fixtags #'string< :key #'symbol-name))
#'equal)
;;; the heap types, stored in 8 bits of the header of an object on the
#'equal)
;;; the heap types, stored in 8 bits of the header of an object on the
@@
-174,10
+174,10
@@
fdefn-widetag ; 01010110
no-tls-value-marker-widetag ; 01011010
fdefn-widetag ; 01010110
no-tls-value-marker-widetag ; 01011010
- #!-(and sb-lutex sb-thread)
+ #!-sb-simd-pack
unused01-widetag
unused01-widetag
- #!+(and sb-lutex sb-thread)
- lutex-widetag ; 01011110
+ #!+sb-simd-pack
+ simd-pack-widetag ; 01011110
unused02-widetag ; 01100010
unused03-widetag ; 01100110
unused04-widetag ; 01101010
unused02-widetag ; 01100010
unused03-widetag ; 01100110
unused04-widetag ; 01101010