Let OFFSET-CONFLICTS-IN-SB check multiple offsets at a time

[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 bafa05d..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))))
-        `',fixtags)
+        `',(sort fixtags #'string< :key #'symbol-name))
   #'equal)
 
 ;;; the heap types, stored in 8 bits of the header of an object on the
@@ -174,7 +174,10 @@
   fdefn-widetag                             ; 01010110
 
   no-tls-value-marker-widetag               ; 01011010
-  unused01-widetag                          ; 01011110
+  #!-sb-simd-pack
+  unused01-widetag
+  #!+sb-simd-pack
+  simd-pack-widetag                          ; 01011110
   unused02-widetag                          ; 01100010
   unused03-widetag                          ; 01100110
   unused04-widetag                          ; 01101010