Changeset 10154


Ignore:
Timestamp:
Jul 19, 2008, 10:26:05 PM (11 years ago)
Author:
rme
Message:

When processing fasl operator $fasl-clfun on x8632-target, call
%UPDATE-SELF-REFERENCES on the function vector.

$fasl-double-float-vector op: conditionalize on 32-bit-target instead
of ppc32-target.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/nfasload.lisp

    r9882 r10154  
    338338         (size-of-code (%fasl-read-count s))
    339339         (vector (%alloc-misc size-in-elements target::subtag-function))
    340          (function (%function-vector-to-function vector)))
     340         (function (function-vector-to-function vector)))
    341341    (declare (fixnum size-in-elements size-of-code))
    342342    (%epushval s function)
    343343    (%fasl-read-n-bytes s vector 0 (ash size-of-code target::word-shift))
     344    #+x8632-target
     345    (%update-self-references vector)
    344346    (do* ((numconst (- size-in-elements size-of-code))
    345347          (i 0 (1+ i))
     
    501503         (size-in-bytes (subtag-bytes subtag element-count))
    502504         (vector (%alloc-misc element-count subtag))
    503          (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)))
    504506    (declare (fixnum subtag element-count size-in-bytes))
    505507    (%epushval s vector)
     
    561563  #+64-bit-target
    562564  (fasl-read-ivector s target::subtag-double-float-vector)
    563   #+ppc32-target
     565  #+32-bit-target
    564566  (let* ((element-count (%fasl-read-count s))
    565          (size-in-bytes (subtag-bytes ppc32::subtag-double-float-vector
     567         (size-in-bytes (subtag-bytes target::subtag-double-float-vector
    566568                                      element-count))
    567569         (vector (%alloc-misc element-count
    568                               ppc32::subtag-double-float-vector)))
     570                              target::subtag-double-float-vector)))
    569571    (declare (fixnum element-count size-in-bytes))
    570572    (%epushval s vector)
    571     (%fasl-read-n-bytes s vector (- ppc32::misc-dfloat-offset
    572                                     ppc32::misc-data-offset)
     573    (%fasl-read-n-bytes s vector (- target::misc-dfloat-offset
     574                                    target::misc-data-offset)
    573575                        size-in-bytes)
    574576    vector))
Note: See TracChangeset for help on using the changeset viewer.