Changeset 10127


Ignore:
Timestamp:
Jul 19, 2008, 4:07:22 AM (11 years ago)
Author:
rme
Message:

x8632 additions.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-clos-boot.lisp

    r10026 r10127  
    17061706  (defstatic *fixnum-class* (make-built-in-class 'fixnum (find-class 'integer)))
    17071707
    1708   #+x8664-target
     1708  #+x86-target
    17091709  (defstatic *tagged-return-address-class* (make-built-in-class 'tagged-return-address))
    17101710  (make-built-in-class 'bignum (find-class 'integer))
     
    18581858            *t-class*
    18591859            *t-class*))
     1860
     1861  #+x8632-target
     1862  (defparameter *ivector-vector-classes*
     1863    (vector (find-class 'short-float-vector)
     1864            (find-class 'unsigned-long-vector)
     1865            (find-class 'long-vector)
     1866            (find-class 'fixnum-vector)
     1867            (find-class 'base-string)
     1868            (find-class 'unsigned-byte-vector)
     1869            (find-class 'byte-vector)
     1870            *t-class*
     1871            (find-class 'unsigned-word-vector)
     1872            (find-class 'word-vector)
     1873            (find-class 'double-float-vector)
     1874            (find-class 'bit-vector)))
    18601875
    18611876  #+x8664-target
     
    20922107                (%svref v (+ slice ppc64::fulltag-imm-2)) *immediate-class*
    20932108                (%svref v (+ slice ppc64::fulltag-imm-3)) *immediate-class*))
     2109        #+x8632-target
     2110        (do* ((slice 0 (+ 8 slice))
     2111              (cons-fn #'(lambda (x) (if (null x) *null-class* *cons-class*))))
     2112             ((= slice 256))
     2113          (declare (type (unsigned-byte 8) slice))
     2114          (setf (%svref v (+ slice x8632::fulltag-even-fixnum)) *fixnum-class*
     2115                (%svref v (+ slice x8632::fulltag-odd-fixnum))  *fixnum-class*
     2116                (%svref v (+ slice x8632::fulltag-cons)) cons-fn
     2117                (%svref v (+ slice x8632::fulltag-tra)) *tagged-return-address-class*
     2118                (%svref v (+ slice x8632::fulltag-imm)) *immediate-class*))
    20942119        #+x8664-target
    20952120        (do* ((slice 0 (+ 16 slice)))
     
    21112136          (map-subtag target::subtag-single-float short-float)
    21122137          (map-subtag target::subtag-dead-macptr ivector)
    2113           #-x8664-target
     2138          #-x86-target
    21142139          (map-subtag target::subtag-code-vector code-vector)
    21152140          #+ppc32-target
     
    21692194        (setf (%svref v target::subtag-instance)
    21702195              #'%class-of-instance)
    2171         (setf (%svref v #+ppc-target target::subtag-symbol #+x86-target target::tag-symbol)
     2196        (setf (%svref v #+ppc-target target::subtag-symbol
     2197                      #+x8632-target target::subtag-symbol
     2198                      #+x8664-target target::tag-symbol)
    21722199              #-ppc64-target
    21732200              #'(lambda (s) (if (eq (symbol-package s) *keyword-package*)
     
    21842211        (setf (%svref v
    21852212                      #+ppc-target target::subtag-function
    2186                       #+x86-target target::tag-function)
     2213                      #+x8632-target target::subtag-function
     2214                      #+x8664-target target::tag-function)
    21872215              class-of-function-function)
    21882216        (setf (%svref v target::subtag-vectorH)
     
    21982226                                   (- ppc32::ntagbits))
    21992227                              #+ppc64-target
    2200                               (ash (the fixnum (logand subtype #x7f)) (- ppc64::nlowtagbits)))
     2228                              (ash (the fixnum (logand subtype #x7f)) (- ppc64::nlowtagbits))
     2229                              #+x8632-target
     2230                              (ash (the fixnum (- subtype x8632::min-cl-ivector-subtag))
     2231                                   (- x8632::ntagbits)))
    22012232                      #+x8664-target
    22022233                      (let* ((class (logand x8664::fulltagmask subtype))
Note: See TracChangeset for help on using the changeset viewer.