Changeset 7770


Ignore:
Timestamp:
Nov 28, 2007, 10:28:31 PM (12 years ago)
Author:
rme
Message:

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

No distinct tag for symbols on x8632.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/level-1/l1-clos-boot.lisp

    r7761 r7770  
    21052105                (%svref v (+ slice x8632::fulltag-odd-fixnum))  *fixnum-class*
    21062106                (%svref v (+ slice x8632::fulltag-cons)) *cons-class*
    2107                 (%svref v (+ slice x8632::fulltag-nil)) *tagged-return-address-class*
     2107                (%svref v (+ slice x8632::fulltag-tra)) *tagged-return-address-class*
    21082108                (%svref v (+ slice x8632::fulltag-imm)) *immediate-class*))
    21092109        #+x8664-target
     
    21842184        (setf (%svref v target::subtag-instance)
    21852185              #'%class-of-instance)
    2186         (setf (%svref v #+ppc-target target::subtag-symbol #+x86-target target::tag-symbol)
     2186        (setf (%svref v #+ppc-target target::subtag-symbol
     2187                      #+x8632-target target::subtag-symbol
     2188                      #+x8664-target target::tag-symbol)
    21872189              #-ppc64-target
    21882190              #'(lambda (s) (if (eq (symbol-package s) *keyword-package*)
Note: See TracChangeset for help on using the changeset viewer.