Changeset 7761


Ignore:
Timestamp:
Nov 27, 2007, 5:12:34 AM (12 years ago)
Author:
rme
Message:

Some conditionalizing for x8632.

Location:
branches/ia32/level-1
Files:
2 edited

Legend:

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

    r7340 r7761  
    16971697  (defstatic *fixnum-class* (make-built-in-class 'fixnum (find-class 'integer)))
    16981698
    1699   #+x8664-target
     1699  #+x86-target
    17001700  (defstatic *tagged-return-address-class* (make-built-in-class 'tagged-return-address))
    17011701  (make-built-in-class 'bignum (find-class 'integer))
     
    18491849            *t-class*
    18501850            *t-class*))
     1851
     1852  #+x8632-target
     1853  (defparameter *ivector-vector-classes*
     1854    (vector (find-class 'short-float-vector)
     1855            (find-class 'unsigned-long-vector)
     1856            (find-class 'long-vector)
     1857            (find-class 'fixnum-vector)
     1858            (find-class 'base-string)
     1859            (find-class 'unsigned-byte-vector)
     1860            (find-class 'byte-vector)
     1861            *t-class*                   ; old base-string
     1862            (find-class 'unsigned-word-vector)
     1863            (find-class 'word-vector)
     1864            (find-class 'double-float-vector)
     1865            (find-class 'bit-vector)))
    18511866
    18521867  #+x8664-target
     
    20832098                (%svref v (+ slice ppc64::fulltag-imm-2)) *immediate-class*
    20842099                (%svref v (+ slice ppc64::fulltag-imm-3)) *immediate-class*))
     2100        #+x8632-target
     2101        (do* ((slice 0 (+ 8 slice)))
     2102             ((= slice 256))
     2103          (declare (type (unsigned-byte 8) slice))
     2104          (setf (%svref v (+ slice x8632::fulltag-even-fixnum)) *fixnum-class*
     2105                (%svref v (+ slice x8632::fulltag-odd-fixnum))  *fixnum-class*
     2106                (%svref v (+ slice x8632::fulltag-cons)) *cons-class*
     2107                (%svref v (+ slice x8632::fulltag-nil)) *tagged-return-address-class*
     2108                (%svref v (+ slice x8632::fulltag-imm)) *immediate-class*))
    20852109        #+x8664-target
    20862110        (do* ((slice 0 (+ 16 slice)))
     
    21022126          (map-subtag target::subtag-single-float short-float)
    21032127          (map-subtag target::subtag-dead-macptr ivector)
    2104           #-x8664-target
     2128          #-x86-target
    21052129          (map-subtag target::subtag-code-vector code-vector)
    21062130          #+ppc32-target
     
    21752199        (setf (%svref v
    21762200                      #+ppc-target target::subtag-function
    2177                       #+x86-target target::tag-function)
     2201                      #+x8632-target target::subtag-function
     2202                      #+x8664-target target::tag-function)
    21782203              class-of-function-function)
    21792204        (setf (%svref v target::subtag-vectorH)
     
    21892214                                   (- ppc32::ntagbits))
    21902215                              #+ppc64-target
    2191                               (ash (the fixnum (logand subtype #x7f)) (- ppc64::nlowtagbits)))
     2216                              (ash (the fixnum (logand subtype #x7f)) (- ppc64::nlowtagbits))
     2217                              #+x8632-target
     2218                              (ash (the fixnum (- subtype x8632::min-cl-ivector-subtag))
     2219                                   (- x8632::ntagbits)))
    21922220                      #+x8664-target
    21932221                      (let* ((class (logand x8664::fulltagmask subtype))
  • branches/ia32/level-1/l1-streams.lisp

    r7666 r7761  
    2525  #+darwinppc-target
    2626  (require "DARWINPPC-SYSCALLS")
     27  #+darwinx8632-target
     28  (require "DARWINX8632-SYSCALLS")
    2729  #+darwinx8664-target
    2830  (require "DARWINX8664-SYSCALLS")
     
    225227        (= (logand subtag ppc64::lowtagmask)
    226228           ppc64::lowtag-immheader)
     229        #+x8632-target
     230        (= (logand subtag x8632::fulltagmask)
     231               x8632::fulltag-immheader)
    227232        #+x8664-target
    228233        (logbitp (the (mod 16) (logand subtag x8664::fulltagmask))
Note: See TracChangeset for help on using the changeset viewer.