Changeset 7770

Timestamp:

Nov 28, 2007, 2:28:31 PM (17 years ago)

Author:

R. Matthew Emerson

Message:

No such thing as x8632::fulltag-nil (it's fulltag-tra).

No distinct tag for symbols on x8632.

File:

• branches/ia32/level-1/l1-clos-boot.lisp (modified) (2 diffs)

branches/ia32/level-1/l1-clos-boot.lisp

@@ -2105 +2105 @@
                 (%svref v (+ slice x8632::fulltag-odd-fixnum))  *fixnum-class*
                 (%svref v (+ slice x8632::fulltag-cons)) *cons-class*
-                (%svref v (+ slice x8632::fulltag-nil)) *tagged-return-address-class*
+                (%svref v (+ slice x8632::fulltag-tra)) *tagged-return-address-class*
                 (%svref v (+ slice x8632::fulltag-imm)) *immediate-class*))
         #+x8664-target
@@ -2184 +2184 @@
         (setf (%svref v target::subtag-instance)
               #'%class-of-instance)
-        (setf (%svref v #+ppc-target target::subtag-symbol #+x86-target target::tag-symbol)
+        (setf (%svref v #+ppc-target target::subtag-symbol
+                      #+x8632-target target::subtag-symbol
+                      #+x8664-target target::tag-symbol)
               #-ppc64-target
               #'(lambda (s) (if (eq (symbol-package s) *keyword-package*)