Changeset 8215 for branches/ia32/level-0


Ignore:
Timestamp:
Jan 18, 2008, 7:10:56 AM (12 years ago)
Author:
rme
Message:

Conditionalize on 32-bit-target instead of ppc32-target in a couple places.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/level-0/nfasload.lisp

    r6184 r8215  
    503503         (size-in-bytes (subtag-bytes subtag element-count))
    504504         (vector (%alloc-misc element-count subtag))
    505          (byte-offset (or #+ppc32-target (if (= subtag ppc32::subtag-double-float-vector) 4) 0)))
     505         (byte-offset (or #+32-bit-target (if (= subtag target::subtag-double-float-vector) 4) 0)))
    506506    (declare (fixnum subtag element-count size-in-bytes))
    507507    (%epushval s vector)
     
    563563  #+64-bit-target
    564564  (fasl-read-ivector s target::subtag-double-float-vector)
    565   #+ppc32-target
     565  #+32-bit-target
    566566  (let* ((element-count (%fasl-read-count s))
    567          (size-in-bytes (subtag-bytes ppc32::subtag-double-float-vector
     567         (size-in-bytes (subtag-bytes target::subtag-double-float-vector
    568568                                      element-count))
    569569         (vector (%alloc-misc element-count
    570                               ppc32::subtag-double-float-vector)))
     570                              target::subtag-double-float-vector)))
    571571    (declare (fixnum subtag element-count size-in-bytes))
    572572    (%epushval s vector)
    573     (%fasl-read-n-bytes s vector (- ppc32::misc-dfloat-offset
    574                                     ppc32::misc-data-offset)
     573    (%fasl-read-n-bytes s vector (- target::misc-dfloat-offset
     574                                    target::misc-data-offset)
    575575                        size-in-bytes)
    576576    vector))
Note: See TracChangeset for help on using the changeset viewer.